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FOREWORD 


This  document  is  the  second  of  three  volumes  of  the  final  report  of  a  study 
conducted  for  the  United  States  Air  Force  under  Contract  F33615-71-C-1059, 
"Development  of  Weapon  Delivery  Models  and  Analysis  Programs".  Approxi¬ 
mately  one  man  year  of  effort  was  covered  by  the  contract.  It  was  initiated 
under  Project  No.  8219,  "Stability  and  Control  Investigations",  Task  No. 
821904,  "Flight  Control  System  Analysis,"  and  administered  by  the  Air  Force 
Flight  Dynamics  Laboratory,  Wright- Patterson  Air  Force  Base,  Ohio.  Major 
Harvey  M.  Paskin  (FGC),  and  Mr.  Alonso  J.  Connors  (FGC)  were  project 
engineers. 

The  technical  work  reported  was  conducted  by  the  Research  Department 
of  the  Systems  and  Research  Division  of  Honeywell  Inc.  Dr.  A.  Ferit  Konar 
was  the  principal  investigator;  Mr.  M.D.  Ward  was  the  programmer  analyst. 
Dr.  G.  B.  Skelton  and  Dr.  E.  E.  Yore  were  project  managers.  Technical 
consultation  was  provided  by  Dr.  Gunter  Stein  and  Mr.  C.  R.  Stone  of  Honey¬ 
well  Inc. 

The  reporting  period  was  October  1970  to  July  1971.  The  report  was 
first  submitted  in  September  1971.  The  contractor’s  report  number  is  Honey¬ 
well  Report  1226 1-FR1. 

The  investigators  in  this  study  would  like  to  thank  Major  Harvey  H.  Paskin 
f  his  enthusiastic  support,  for  his  technical  leadership,  and  for  his  assis¬ 
tance  in  obtaining  bomb  data.  The  investigators  would  also  like  to  thank  Mr. 
Alonzo  J,  Connors  for  providing  direction  and  assistance  in  testing  the  anal¬ 
ysis  programs. 

This  technical  report  was  reviewed  and  is  approved. 


C.B.  Westbrook 

Chief,  Control  Criteria  Branch 

Flight  Control  Division 

Air  Force  Flight  Dynamics  Laboratory 
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SECTION  I 
INTRODUCTION 


Computer  programs  for  the  precision  weapon  delivery  system  models 
and  performance  optimization  algorithms  reported  in  Volume  I  are  docu¬ 
mented  in  this  volume. 

The  computer  programs  are  developed  in  Fortran  IV  language.  The 
overall  program  is  called  ADAPS  —  Armament  Delivery  Analysis  Program¬ 
ming  System.  The  system's  greatest  asset  is  its  flexibility,  obtained  by 
extensive  use  of  subroutines. 

Each  section  is  written  with  the  user  in  mind.  Enough  detail  is  given  so 
that  basic  Fortran  knowledge  is  sufficient  to  understand  the  majority  of  the  pro 
grams.  In  the  documentation  of  each  program,  first  input/output  information 
is  given.  Subsequently  flow  charts,  and  source  program  listings  are  pre¬ 
sented.  In  addition,  a  table  of  symbols  is  provided  for  many  programs. 

Section  II  provides  a  brief  description  of  the  overall  organization  of 
ADAPS.  Section  HI  documents  ADAP  1  —  Main  Program  for  Nonlinear  Sim¬ 
ulation  and  Linearization,  and  Section  TV  documents  ADAP  2  —  Main  Pro¬ 
gram  for  discrete  optimization  of  Nonstationary  systems.  This  is  followed 
by  the  documentation  of  ADAP  3  —  Main  Program  for  Nonstationary  Per¬ 
formance  Evaluation  of  Weapons  in  Section  V.  Section  VI  summarizes  the 
programming  and  documentation  work  and  lists  recommendations  for  addi¬ 
tional  areas  of  programming  and  extensions  to  weapon  systems  study  by 
ADAPS. 

The  documentation  of  table -input- lookup- and  interpolation  processes  is 
given  in  Appendix  I.  The  documentation  of  DIAK  —  Program  for  Optimization 
of  Stationary  Systems  —  is  given  in  Appendix  II. 

A  demonstration  example  is  included  in  Volume  HI  to  illustrate  how  these 
programs  are  used  and  how  the  important  error  contributors  to  weapon 
delivery  performance  are  identified. 
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SECTION  II 

OVERALL  ORGANIZATION  OF  ADAPS 


This  section  is  a  brief  discussion  of  the  overall  structure  of  the  Arma¬ 
ment  Delivery  Analysis  Programming  System  (ADAPS). 

The  various  subroutines  implementing  the  precision  weapon  delivery 
models  and  optimisation  algorithms  provide  the  capability  to  analyse  weapon 
delivery  as  a  general  linear  time-varying,  stochastic  process  or  to  analyze 
it  as  a  much  simplified  process  that  is  stationary  during  all  of  its  phases. 

The  one  extreme  offers  fidelity  to  the  physical  situation,  the  other  offers  low 
computing  costs  and  the  possibility  of  many  analysis  iterations.  By  using  the 
program  organization  shown  in  Figure  1,  both  extremes  (as  well  as  the  many 
possibilities  in  between)  are  readily  attainable.  In  this  organization.  ADAPS 
is  divided  into  three  groups: 

•  ADAP  1  —  Simulator  and  Linearizer 

•  ADAP  2  —  Optimizer 

•  ADAP  3  —  Performance  Evaluator 

The  individual  subroutines  within  each  group  are  accessible  from  a  main 
program  with  which  they  share  common  memory.  They  communicate  with 
each  other  within  the  groups  indicated.  Optional  inputs  are  provided  to  cover 
various  analysis  objectives. 

A  typical  analysis  proceeds  as  follows: 

•  Linear  Data  Generation  -  This  procedure  requires  the  following 

steps: 

1.  Read  input  data  for  attack  maneuver,  read  nonlinear 
aircraft  aerodynamics. 

2.  Trim  aircraft,  and  fly  it  to  obtain  nominal  trajectory 
up  to  nominal  release  altitude. 

3.  Linearize  the  aircraft  equations  of  motion  numerically 
at  specified  time  points  during  flight.  Write  on  tape. 

4.  Read  input  data  for  nonlinear  weapon  aerodynamics. 

5.  Using  the  release  conditions,  generate  free-fall  tra¬ 
jectory  by  the  nonlinear  weapon  model. 

6.  Linearize  the  weapon  equations  of  motion  numerically 
at  specified  time  points  along  the  free-fall  trajectory, 
write  on  tape. 
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Figure  2  is  the  input /output  block  diagram  of  the  linear  data 
generation  by  ADAP  1.  Options  are  also  available  within  the 
program  (aircraft  only,  weapon  only,  simulation  only,  etc. ). 

•  Optimization  -  This  procedure  requires  the  following  steps: 

1.  Generate  the  propagation  weighting  matrix  using  linear 
weapon  data. 

2.  Input  control  points,  measurement  points,  measurement 
variances. 

3.  Choose  the  type  of  optimization,  and  obtain  controller 
gains,  estimator  gains,  total  system  covariance  at 
release. 

To  obtain  the  weighting  matrix,  first  the  initial  covariance 
of  free  aircraft  is  propagated  to  the  release  point  by  ADAP  2. 

The  input/output  block  diagram  for  this  is  shown  in  Figure  3. 
Subsequently,  the  release  covariance  is  propagated  to  impact 
by  ADAP  3,  and  the  weighting  matrix  is  computed.  The  input/ 
output  block  diagram  for  this  is  shown  in  Figure  4. 

These  data  are  used  in  the  second  run  up  of  ADAP  2  to  produce 
optimal  controller  and  estimator  gains  as  well  as  release  co- 
variance  for  the  optimal  system.  Again  here  various  options 
are  available  (controller  only,  estimator  only,  etc. ).  Figure  5 
is  the  input/output  block  diagram  of  the  nonstationary  optimi¬ 
zation  phase. 

•  Performance  Evaluation  -  This  procedure  requires  the  following  steps: 

1.  Propagate  the  release  covariance  to  impact  using 
performance  evaluator. 

2.  Compute  impact  covariance  matrix,  CEP  performance 
measure  and  the  variance  contribution  matrix. 

Figure  6  is  the  input/output  block  diagram  of  the  performance 
evaluation  procedure. 

The  above  defines  one  complete  cycle  of  a  typical  use  of  ADAPS.  Each 
part  can  be  used  independent  of  the  other  for  different  needs.  The  main  pro¬ 
grams  are  largely  at  the  discretion  of  the  user,  to  be  organized  as  best  suits 
a  particular  analysis  problem. 

For  a  twentieth- order  system,  the  total  computing  time  per  program 
cycle  is  approximately  15  minutes  using  a  CDC-6600  processor  (Table  I), 
and  each  main  program  requires  less  than  32  K  of  memory. 
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Figure  3.  Input-Output  Block  Diagram  of  Release  Covariance  Generation 
With  Optimal  Gains 
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Figure  4.  Input-Output  Block  Diagram  of  Weighting  Matrix  Generation 
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Figure  5.  Input-Output  Block  Diagram  of  Nonstationary  Optimization 
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Figure  6.  Input-Output  Block  Diagram  of  Performance  Evaluation 
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SECTION  III 

ADAP  1  —  SIMULATOR  AND  LINEARIZER 


ADAP  1  is  a  six-degree-of-freedom  nonlinear  simulation  and  lineariza¬ 
tion  program.  It  is  based  on  the  THRUST  program  developed  by  Honeywell 
Cl,  2],  The  set  of  linear  data  generated  by  ADAP  1  is  used  in  optimal  con¬ 
troller  and  estimator  design  (ADAP  2),  as  well  as  in  weapons  delivery  per¬ 
formance  evaluation  (ADAP  3).  Figure  7  shows  the  information  flow  in 
ADAP  1  during  a  simulation. 

Briefly,  prescribed  attack  trajectories  are  flown  by  simulating  an  air¬ 
craft  model  using  a  trim  profile  input.  During  the  six-degree-of-freedom 
simulation,  the  perturbation  equations  are  obtained  at  specific  time  intervals 
by  a  numerical  partial  differentiation  technique.  This  process  continues  until 
the  weapon- release  condition  is  reached.  Then  free-fall  trajectories  are 
generated  by  simulating  a  weapon  model.  During  the  six-degree-of-freedom 
weapon  simulation,  the  perturbation  equations  are  obtained  at  specified  time 
intervals  in  the  same  way.  This  continues  until  impact  occurs. 

During  the  flight  from  target  acquisition  to  weapon  impact,  all  internal 
variables  of  aircraft  and  weapon  and  the  corresponding  linear  data  are  printed 
out  at  specified  time  points.  The  linear  data  are  also  stored  in  the  permanent 
disk  files  for  subsequent  use. 

In  the  balance  of  this  section,  input/ output  information  is  provided  first; 
then  the  main  program  and  its  subroutines  are  described. 


ADAP  1  INPUT/ OUTPUT 


A-ARRAY  MAP 

All  information  to  be  transferred  between  subroutines  in  ADAP  1,  or 
that  is  to  be  available  for  input  and  output,  is  stored  in  an  array.  To  the 
computer,  an  array  is  a  block  of  storage  locations,  the  first  of  which  is 
referred  to  as  the  base  location  and  identified  by  some  variable  name.  In 
the  ADAP  1  this  name  has  been  designated  as  A;  hence,  the  term  "A-array". 
All  other  locations  in  the  array  are  identified  by  placing  a  subscript  on  A. 

For  example,  A(79)  represents  the  79th  location  in  the  A  array  [2J.  There 
are  1000  entries  in  the  A-array,  and  they  are  shared  by  all  ADAP  1  sub¬ 
routines  through  the  statement 

COMMON/ADAP/AUOOO) 

It  is  important  to  record  each  A-array  assignment,  and  this  is  done  in  the  A- 
array  map.  Table  II  shows  A-array  assignments  in  ADAP  1.  The  locations 
with  no  entry  signify  their  availability  for  future  use. 


(THRUST) 


Figure  7.  Information  Flow  in  ADAP  1  System  -  Simulation  Only 
(dotted  blocks  denote  future  implementations) 
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Table  II.  ADAP  1  A-Array  Map  (301-400) 
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Table  n.  ADAP  1  A-Array  Map  (501-600) 
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In  the  A -Array  Map  Form  (Table  II),  the  value  column  is  auxiliary  and 
can  be  used  to  record  the  input  values  of  a  particular  simulation  run.  For 
programming  convenience,  A -array  locations  are  equivalenced  to  mnemonic 
names.  For  example,  if  the  variable  a  is  to  be  assigiied  to  location  26  in  the 
A -array,  then  either  a  statement 

EQUIVALENCE  (ALPHA,  A(026)) 

is  used  at  the  beginning  of  a  subroutine  or  a  statement 

ALPHA  =  A(26) 

is  used  within  the  subroutine.  Each  subroutine  begins  with  an  equivalence 
block.  The  equivalence  block  is  divided  into  three  parts.  The  ’’parameter 
inputs”  are  those  inputs  to  the  subroutine  which  are  provided  through  ADAP's 
main  input.  The  ’’variable  inputs"  are  those  inputs  which  are  computed  in 
some  other  subroutine  in  the  ADAP  system.  The  "variable  outputs"  are  those 
quantities  which  are  computed  in  the  subroutine. 


INPUT  DESCRIPTION 

Input  for  the  ADAP  1  is  in  the  form  of  punched  cards.  It  is  divided  into  two 
groups: 

•  Common  card  data  input 

•  Table  card  data  input 

Both  groups  are  read  in  during  the  first  call  (Mode  =  -1)  of  subroutine  EXEK. 


Common  Card  Data  Input 

The  common  input  is  the  input  that  appears  after  the  data  control  card  behind 
the  program  deck.  This  input  consists  of: 

•  Input  comment  cards 
»  A -array  input  cards 

•  A  -array  output  specification  cards 

•  Program  control  cards 

Input  Comment  Cards  —  Any  number  of  comment  cards  may  be  u  -d  in  the 
common  input" deck.  Although  these  are  not  required,  they  are  us  I  in 
defining  each  simulation  and  linearization  case.  Each  comment  card  mu^t 
have  a  C  in  Column  1  as  shown  in  Figure  8.  Columns  2-80  of  each  card  are 
printed  on  the  first  page  of  output. 
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Figure  8.  Input  Comment  Cards 


/  -Array  Input  Cards  —  It  is  possible  to  assign  a  value  to  any  location  in  the 
A -array  through  input  cards.  This  is  done  by  a  control  card  PCC  starting  in 
column  1,  followed  by  a  set  of  cards  containing  the  array  numbers  and  cor¬ 
responding  A -array  values  (Figure  9).  From  one  to  five  A -array  locations 
can  be  input  by  a  single  card. 

The  format  for  this  card  is  shown  in  Table  III. 

Figure  9  shows  five  values  punched  on  a  single  card.  This  method 
should  be  used  for  large  amounts  of  input  data.  A  single  card  may  also  be 
used  for  each  A-array  value  input.  This  method  is  satisfactory  when  the 
number  of  inputs  are  small,  since  it  simplifies  correcting  and/or  modifying 
an  input  card.  There  is  no  limit  on  the  number  of  input  cards  that  can  be 
used. 

If  a  format  data  mismatch  occurs  while  reading  an  A-array  input  card, 
then  a  message,  "CARD  ERROR"  will  be  printed,  followed  by  a  printout  of 
the  card  in  error.  The  program  will  stop  on  a  format  data  mismatch. 

A -Array  Output  Specification  Cards  —  The  A-array  locations  that  must  be 
printed  b' t  during  a  run  are  specified  by  a  control  card  PRINT  starting 
column  1,  followed  by  a  set  of  cards  listing  the  indices  of  the  A -arrays  that 
will  be  printed  (Figure  10).  These  numbers  are  right  justified  in  I5  fields  on 
a  pt  mt  card.  The  format  for  this  card  is  illustrated  in  Table  IV. 
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All  blank  fields  are  ignored.  Any  number  of  cards  may  be  used,  but  the 
number  of  A -array  locations  specified  for  printing  must  be  less  than  100. 

If  a  format  data  mismatch  occurs  while  reading  a  print  index  card  then 
a  message,  "PRINT  SPEC  ERROR,  "  will  be  printed,  followed  by  a  printout 
of  the  card  in  error.  The  program  will  stop  on  a  format  data  mismatch. 


Program  Control  Cards  --  Two  program  control  cards  are  used  in  the  input: 

•  RUN 

•  STOP 

Each  of  these  cc  trol  words  must  start  in  column  1  (Figure  11).  The  RUN 
card  signifies  the  end  of  common  input  for  one  case.  Wien  the  program 
reads  the  RUN  card,  it  will  begin  to  execute. 


The  STOP  card  is  the  last  card  in  a  data  deck.  It  commands  the  program 
to  stop. 


Figure  11.  Program  Control  Cards 

Rules  for  Common  Card  Data  Input  —  The  following  rules  apply  to  common 
card  data  input: 


•  Comment  cards  must  have  a  C  in  column  1 . 

•  Any  number  of  comment  cards  may  be  used,  including  zero, 

•  The  PRINT  and  PCC  sections  can  appear  in  any  order. 

•  All  integers  must  be  right- justified  in  their  input  fields. 
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Table  Card  Data  Input 

The  table  card  data  are  placed  after  the  RUN  card  in  the  input  data  deck. 
The  input  cards  required  to  specify  a  function  table  are: 

•  Function  header  card 

•  Variable-value  cards 

•  Function  value  cards 

•  End  function  card 

These  cards  are  shown  in  Figure  12. 
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Figure  12.  Table  Input  Cards:  (a)  Function  Header  Card;  (b)  Variable -Value 
Cards;  (c)  Function  Value  Cards;  (d)  End  Function  Card 


Function  Header  Card  --  The  following  information  is  contained  on  a  function 
headier  card: 

•  Number  of  variables  in  the  table 

•  The  integers  assigned  to  the  functions  variables 

•  The  integers  assigned  to  variable- value  sets  used  in  the  table 

•  The  integer  assigned  to  the  function 

•  The  integer  assigned  to  a  function  which  has  exactly  the  same 
table  of  function  values  as  the  function  at  hand  (provided  such 
a  function  exists) 
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The  format  for  this  card  is  shown  in  Table  V. 


Table  V.  Function  Header  Card  Format 


Columns 

Description 

1  -  5 

Number  of  variables 

6  -  9 

/First  variable  value  set 

10  -  11 

First  variable 

12  -  15 

Second  variable  value  set 

16  -  17 

Integer 

Second  variable 

18-21 

assigned  < 
to 

Third  variable  value  set 

22  -  23 

Third  variable 

24  -  27 

Function 

28  -  31 

^Function  with  same  table 

All  entries  on  this  card  are  integers  and  must  be  right- jusitfied;  i.  e. , 
the  least  significant  digit  must  be  in  the  right-most  column  of  the  field 
(Figure  12). 

Variable- Value  Cards  —  A  variable- value  set  is  a  set  of  numbers  that  a 
variable  takes  on  in  a  function  table.  In  other  words,  these  numbers  are  the 
variable  values  at  which  function  values  are  given  in  the  table. 

The  variable  values  in  a  set  are  specified  in  the  input  immediately  after 
the  function  header  card  (Figure  12).  The  set  number  associated  with  the 
entries  on  a  card  must  be  specified  in  columns  1-4.  From  one  to  nine  values 
of  a  variable  can  be  specified  on  one  card.  Beginning  in  column  9,  a  new 
field  starts  every  eight  columns.  The  format  for  these  cards  is  shown  in 
Table  VI. 

If  more  than  one  card  is  used  to  enter  a  set,  then  each  card  must  be 
identified  by  the  appropriate  set  number.  Blank  variable-value  fields  will 
be  ignored;  therefore,  a  zero  value  must  be  explicitly  denoted  as  0.  0.  The 
first  time  a  variable- value  set  is  referenced  on  a  function  header  card,  the 
values  in  that  set  must  be  specified  immediately  after  the  function  header 
card.  However,  on  subsequent  references  to  the  set,  it  is  only  necessary  to 
write  the  set  number  on  the  header  card.  It  is  not  necessary  to  specify  the 
numbers  in  the  set  again.  Any  sets  that  are  specified  must  be  specified  in 
the  same  order  as  they  appear  on  the  function  header  card. 
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Table  VI.  Variable- Value  Card  Format 


Columns 


Description 


1  -  4 

Variable- value  set  number 

9-16 

1st  > 

17  -  24 

2nd 

25  -  32 

3rd 

33  -  40 

4th 

41  -  48 

5th 

>  Value  of  variable  in  the  set 

49  -  56 

6th 

57  -  64 

7th 

65  -  72 

8th 

73  -  80 

9th  > 

Function  Value  Cards  --  Function  values  are  specified  under  the  same  format 
as  the  variable  values  except  the  set  number  field;  i.  e. ,  columns  1-4  are 
blank.  Any  card  after  the  function  header  card  which  has  no  entry  in  columns 
1-4  will  be  considered  a  function  value  card  by  the  program.  Function  value 
cards  must  appear  after  the  variable  value  cards  (Figure  12).  Blank  entries 
will  be  ignored  and  zeros  must  be  specified  explicitly.  The  format  for  these 
cards  is  shown  in  Table  VII. 

Table  VII.  Function  Value  Card  Format 
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The  order  in  which  the  function  values  are  specified  must  correspond  to 
the  order  in  which  the  variables  are  specified.  The  function  values  are  to  be 
given  with  the  last  variable  specified  on  the  function  header  card  varying 
fastest  and  the  first  varying  slowest. 

As  an  example  consider  the  aerodynamic  lift,  coefficient  Ct  (Ma,  h,  a°w) 
(Table  VIII).  The  look-up  representation  of  this  table  in  ADAfI  is  Fl(l,2, 3) 
(see  Subroutine  AERK).  This  means  that  the  function  number  is  1,  the  first 
variable  number  is  1,  the  second  variable  number  is  2  and  the  third  variable 
number  is  3.  The  first  variable-value  set  in  the  table  is  Mj  =  0.  5  and  M2*0*  9. 
The  assigned  set  number  is  1.  The  second  variable  value  set  in  the  table  is 
hi  =  0. 0,  and  h2  =  20, 000. 0.  The  assigned  set  number  is  2.  The  third  vari¬ 
able  value  set  in  the  table  is  *  -4. 0,  <*2  *  8*  0,  03  *  16. 0  and  a 4  *20.  0.  The 
assigned  set  value  is  3. 

The  function  values  are  input  as  shown  in  Table  VIII  with  the  format  given 
in  Table  VII.  Figure  12(c)  shows  the  first  function  value  card  in  the  deck. 

Table  VIII.  Cl(M,  h,  a)  Function  Values 


Variable  Values 

ofj*-40 

0 

• 

00 

it 

«r 

Og  =  16.  0 

«4  *20.  0 

Function 

Value 

Cards 

Mj  =  0.  5 

0 

• 

O 

II 

rH 

s: 

-0.22 

0.44 

0.  78 

0.  80 

1st 

h2  *■  20,000.0 

-0.22 

0.47 

0.  82 

0.  85 

2nd 

M2  =  0.  9 

hj  *  0. 0 

-0.25 

0.46 

0.  74 

0.  80 

3rd 

h2  =  20,000.0 

-0.27 

0.  51 

0.  82 

0.  89 

4th 

End  Function  Card  —  The  last  data  card  for  each  function  must  be  a  -1  in 
columns  3  and  4.  An  extra  end  function  card  must  be  placed  behind  the  last 
function  in  a  deck.  In  other  words,  the  last  two  cards  in  a  function  table  data 
deck  are  -l's  in  columns  3  and  4. 

General  —  When  choosing  points  on  a  curve  that  will  be  used  to  represent  it 
in  the  program,  there  are  several  things  to  remember; 

•  The  program  interpolates  linearly  between  stored  points. 

•  The  program  does  not  extrapolate  beyond  stored  points. 

•  Execution  time  is  nearly  independent  of  the  number  of  points 
stored. 
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The  entire  ADAP  1  input  data  package  is  shown  in  Figure 


(a)  AIRCRAFT  AND  WEAPON  DECK 


[END  FUNCTION  CARD 


[END  FUNCTION  CARD 


FUNCTION  VALUE 

VARIABLE  VALUE 

CARDS 


FUNCTION  HEADER 
CARD 


>  TABLI 


Q>)  COMPOSITION  OF  A  DECK 


Figure  13.  ADAP  1  Input  Data  Package 
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13. 


LAST  TABLE  CARD 


2  INPUT 


OUTPUT  DESCRIPTION 

The  forms  of  output  supplied  with  ADAP  1  are: 

•  Printed  output  of  the  input  data  deck 

•  Specified  A-arrays  printout 

•  Printed  output  of  A -array  dumps 

•  Linear  data  printout 

•  Linear  data  output  to  permanent  disc  file 


Printed  Output  of  Input  Data  Deck 

Complete  image  of  the  input  data  deck  is  printed  out  at  the  beginning  of 
each  s  imulation  and  linearization  run. 


Specified  A -Arrays  Printout 

The  printed  output  of  specified  A-arrays  is  not  used  in  the  present  pro¬ 
gram.  The  interval  between  output  points  is  specified  by  DTOUT  in  A(134). 

A -Array  Dump 

The  term  "A-array  dump"  means  that  the  value  of  all  999  locations  in  the 
A-array  are  printed.  (Only  nonzero  values  are  printed. )  The  interval 
between  dump  points  is  specified  by  DTOUT  in  A(134).  This  form  of  output  is 
very  useful  for  debugging  and  is  used  in  ADAP  1 .  The  value  of  time  in 
seconds  is  always  contained  in  A(l).  The  array  location  is  printed  first, 
followed  by  the  value  in  that  location. 

Linear  Data  Printout 

The  matrices  obtained  in  the  linearizer  are  printed  out  by  matrix  print 
subroutine  MP.  Each  matrix  as  well  as  its  rows  are  identified.  The  docu¬ 
mentation  for  MP  is  given  in  Section  IV.  The  linear  data  generated  during 
aircraft  dive  are  F,  Gl,  G2,  HP,  FW,  GW  and  HW  matrices.  The  linear 
data  generated  during  weapon  fall  are  F,  Gl,  G2,  FW,  GW  and  HW  matrices. 

Linear  Data  Output  to  Permanent  Disc  Files 

The  linear  data  for  aircraft  and  wind  systems  are  augmented  and  output 
to  a  permanent  disc  file  as  the  matrices  FF,  GG1,  GG2,  GG3,  H2  and  VW. 

The  linear  data  output  for  aircraft  occurs  in  subroutines  LINK  and  SLINK. 

The  linear  data  for  weapon  and  wind  systems  are  augmented  and  output  to 
another  permanent  disc  file  as  the  matrices  F  and  G3.  This  is  aone  in  sub¬ 
routine  WLINK. 
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ADAP  1  PROGRAM  DESCRIPTION  ! 


ADAP  1  MAIN  PROGRAM 

All  programs  in  ADAPS  are  written  as  subroutines.  The  main  program 
ADAP  1  is  used  to  tie  these  subroutines  into  a  simulation  and  linearization. 

The  main  program  flow  diagram  is  shown  in  Figure  14  and  the  program  list¬ 
ing  in  Figure  15. 

The  usage  of  the  main  program  is  self-explanatory  from  the  figure.  Be¬ 
cause  of  its  importance  however  a  brief  description  is  given  below. 

The  main  program  can  be  divided  into  two  sections  --  initialization  ^nd 
simulation.  In  the  initialization  section,  the  A-Array  is  first  cleared,  t  r 
mode  flag  is  set  to  -1,  and  subroutine  EXEK  is  called.  In  this  call,  hi).  lnt*ut 
cards  for  one  run  are  read  by  subroutines  PREAD,  PRINT  and  FLO  '  -K .  Then 
the  aircraft  simulation  flag  SAC  is  tested.  If  SAC  =  0,  control  is  transferred 
to  the  weapon  simulation  (WS)  part  of  the  program.  Otherwise  all  aircraft 
subroutines  are  called  with  MODE  =  - 1  for  their  nominal  parameter  settings. 

Then  the  mode  flag  is  incremented  and  a  second  call  (MODE  =  0)  is  made  to 
the  subroutines  for  their  initialization.  The  mode  switch  is  incremented 
again  (MODE  =  1)  which  corresponds  to  simulation.  If  linearization  is  not 
wanted  during  simulation  SAC  is  set  to  1,  and  call  to  subroutine  LINK  is  by¬ 
passed.  Otherwise  LINK  is  called,  and  linearization  is  carried  out  at  the 
beginning  time  point  of  the  simulation.  Then  the  number  of  integration  steps 
NN  between  the  simulation  outputs  is  set,  and  the  high-frequency  computation 
loop  (DO  400)  is  entered. 

There  are  three  exits  from  this  loop.  After  each  normal  exit,  that  is 
after  each  AT  simulation  time  interval,  linear  data  is  obtained  by  calling  sub¬ 
routine  LINK,  and  a  new  simulation  segment  is  started.  The  second  type  of 
exit  occurs  when  the  altitude  variable  h  reaches  the  pull-up  altitude  hp.  The  j 

third  type  of  exit  occurs  when  total  simulation  time  exceeds  the  specified 
maximum  simulation  time  tmax. 

In  either  of  the  first  two  types  of  exits,  the  program  tests  if  weapon  simu¬ 
lation  is  wanted.  This  is  the  normal  case  here  (SW  ^  0).  The  program  saves 
the  values  of  the  state  x  and  its  derivative  x,  to  initialize  the  weapon  run. 

From  this  point  on,  similar  information  flow  takes  place  for  the  weapon.  At 
the  end,  control  returns  to  the  beginning  of  the  program,  and  it  expects  to  read 
a  third  run  data.  If  it  encounters  a  STOP  card  daring  input,  it  stops  the  pro¬ 
gram. 

The  subroutines  used  in  the  main  program  are  listed  in  Table  IX.  For 
these  subroutines  which  implement  mathematical  models,  a  reference  is  made 
to  Volume  I  showing  the  page  numbers  of  the  pertinent  rnalysis  and  modeling 
work. 


34 


! 


START 
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Figure  14.  ADAP  1  Main  Program  Flow  Diagram 
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SAV^X,  X  L^ 


1  PWINTXX 

"'  '  4,  "" 

f  ZEKOAAWWAV 


'I 


X 


SET  MOOE  *  *1 

1  =nz 


CALL  EX  EK 

TXI 


0 — ►[ 


STOWE  SAVED  X, 


3 


CONTINUE 

zxz 


SET  WNO  »  0 


SET  LIN  -0 

zxz 


CALL  WAEWK 
CALL  DYNK  (LIN) 


(  TEST  IFSW-1 

-ixrz 


CALL  WUNK 
A AOOl' 


|  CONTINUE 

-♦  - 


y-1 


I  MODE-  MOOE  +  1 

r 


] 


CALL  EXEK 
CALL  WAERK 
CALL  DYNK(LIN) 


MODE  -  MOOE  + 1 


’  TEST  IF  SW  "  1  } 

JffiS- 

I 

CALL  WUNK 

L _ 

4002 


CONTINUE 

~zr~ 


SET  NN  -  AU31) 


¥ 


< 


4010 


SET  LIN  -0 


] 


r~C  DC  4020  I  *  1,  NN  | 


£ 


CALL  WAEWK 
CALL  DYNK  (LIN) 
CALL  EXEK 


ClT  - \  YES 

TEST  IF  h  >  0  )  — 

f  SET  h »  20  | 


c 


] 


(Zo  TO  4025  ) - 

X  4020 

-c  CONTINUE  k 


•{  TEST  IF  RND  *  0  ) 

ZHEE 


[ 


[ 


SET  h*  0 

~~r~ 


] 


CALL  DOUMP(LW) 

1 


] 


T 


Figure  14.  ADAP  1  Main  Program  Flow  Diagram  (concluded) 
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non  nnn  a  no  n  no 


PROGRAM  A0APUNPUT.0UTPUT.TAPE5-INPUT.TAPE9-0UTPUT»TAPE6»TAPE7) 
AOAP  NON-LINEAR  A/C  AND  WEAPON  MAIN  PROGRAM 

COMMON/AOAP/MOOE  » A< 1000 1 
DIMENSION  X( 12)  tXD0T(12) 

EQUIVALENCE  (SAC  «A(995) 1 » ( SW»A(996 1 I 
LW«9 

ZERO  A  ARRAY 

1  00  2  1*1*1000 
2  A(I)*0. 

MODE*— 1 

CALL  EXEK  IN  M0DE—1.THIS  CALL  TO  EXEK  READS  IN  PARAMETER  CHANGE 
CARDS  AND  TABLE  DATA  FOR  SUBROUTINE  FLOOK 
CALL  EXEK 
RND*0. 

RN*0* 

LIN-0 

IFtSAC.EQ.0.1  GOTO  4000 
CALL  AERK 
CALL  THRUSK 
CALL  DYNK(LIN) 

IE ( SAC.EQ.l. I  GOTO  10 
CALL  LINK 
10  CONTINUE 
MODE*MODE+l 

CALL  SUBROUTINES  WITH  MODE*0 

CALL  EXEK 
CALL  AERK 
CALL  THRUSK 
CALL  DYNMLINJ 
MODF*MODE*l 

IFISAC.EQ.l.I  60T0  600 
CALL  LINK 
600  CONTINUE 
NN*A( 1311 
410  LIN-0 

C  HIGH  RATE  LOOP  FOR  A/C  NN  ITEGRATION  STEPS  PER  SEC. 

DO  400  I*1»NN 
CALL  THRUSK 
CALL  PILOT(RN) 

CALL  AERK 
CALL  DYNK(LIN) 

CALL  EXEK 

IF(A(004>-A(2741 1702, 707*703 

702  CONTINUE 
RND-1.23 

703  CONTINUE 
IF(RND,NE*0.1  GOTO  430 


Figure  15.  ADAP  1  Main  Program  Input /Output  Listing 


UVOV  UUU  WUC-'UU 


IF( A(001 ) .GE« AI283 ) )  GOTO  450 
400  CONTINUE 

IFCSAC.EQ.l.)  GOTO  750 
CALL  LINK 

750  GOTO  410 

450  CALL  DOUMP(LW) 

IFISAC.EQ.l.)  GOTO  751 
CALL  LINK 

751  CONTINUE 

TEST  FOR  WEAPON  SIMULATION  FOLLOWING  A/C  SIMULATION 

SAVE  X  AND  XDOT  OF  A/C 
IF( SW.EQ.O. I  GOTO  1 
DO  760  1-1.3 

1 1- 1+6 

12- I+41 

13- I+30 

14- I+1 
I1D-I+16 
I2D-I+44 
I3D-I+38 
I4D-I+12 
X(I)-Atll) 

X(I+3)-ACI2) 

X(  I  +6 ) -A ( 1 3 ) 

X(l+9)-A(I4) 

XOOTC I I  -All ID) 

XDOT 1 1+3 ) -A < 120) 

XDOT ( I +6 ) -A ( 1 3D ) 

XDOT  < I +9 ) « A ( I 4D ) 

760  CONTINUE 

PRINT  TERMINAL  A/C  STATE  AND  DERIVATIVE 
WRITEILW.763) 

763  FORMAT C1H1/7X.21H  A/C  STATE  AT  RELEASE/) 

WRITEILW.764)  (XU). 1-1.12! 

764  FORMAT I /4H  U  -E15.8.4H  V  -E15.8.4H  W  -EX5.8/4H  P  -E13.8.4H  0  -E15. 
18.4H  R  -E15.8/7H  THETA-E15.8.7H  PHI  -E15.8.7H  PSI  -E15.8/6H  XE 
2-E15.8.5H  YE  -E15.8.5H  HE  -E15.8) 

WRITECLW.765)  f  XDOT U)»I -1.12) 

765  FORMATI//5H  UD  -E15.8.5H  VD  -E15.8.5H  WD  -E15.8/5H  PD  -E15.8.5H  00 
1  -E15.8.5H  RD  -E15.8/8H  THETAD-E15.6.8H  PHID  -E15.8.8H  PSID  -E15 
2.8/6H  X.ED  -E15.8.6H  YED  -E15.8.6H  HED  -E15.8) 

DO  761  1-1.1000 

761  A( I )-0« 

MODE— 1 

READ  IN  V  °ON  DATA 
CALL  £.  .. 

STORE  SAVED  A/C  STATE 


Figure  15.  ADAP  1  Main  Program  Input/Output  Listing  (continued) 
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U  C! 


r>0  762  1-1*3 

11- I+6 

12- I+41 

13- I+30 

14- I+1 
Atm-Xl!) 

A(I2)»X(I+3) 

A(I3)-X<I+6) 

A( I4)»Xt 1+9) 

762  CONTINUE 

4000  continue 
RND-0* 

LIN-0 
CALL  WAERK 
CALL  DYNK(LIN) 

IF(SW.EQ.l.)  GOTO  4001 
CALL  WLINK 

4001  CONTINUE 
MODF-MODE+1 
CALL  EXEK 
CALL  WAERK 
CALL  DYNK(LIN) 

MODF-MODE+1 

IF(SW.EG.l.)  GoTC  4002 
CALL  WLINK 

4002  CONTINUE 
NN-A( 131 ) 

4010  HN-0 

HIGH  RATE  LOOP  FOR  WEAPON  NN  INTEGRATION  STEPS  PER  SECOND 

DO  4020  I-ltNN 
CALL  WAERK 
CALL  DYNKILIN) 

CALL  EXEK 

IF(A(004J.GT.0.)  GOTO  4020 
A( 004  >*20. 

RND-1. 

GOTO  4025 
4020  CONTINUE 
4025  CONTINUE 

IFISW.EO.l.)  GOTO  4031 
CALL  WLINK 
4031  CONTINUE 

IFIRND.EQ.O. )  GOTO  4r.l0 
A (0041-0. 

CALL  ODUMP*LW> 

GOTO  1 
END 


Figure  15.  ADAP  1  Main  Program  Input/Output  Listing  (concluded) 
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Table  IX.  ADAP  1  Subroutine  Summary 


Subroutine 

Description 

Plow 
Diagram 
(Figure  No. ) 

Program 
Listing 
(Figure  No. ) 

List  of 
Symbols 
(Table  No.) 

Vol.  I 
Reference 

A  DAP  1 

(Main  Program) 

Noaliaaar  simulation  and  linearisation  of 
aircraft  and  weapon 

14 

IS 

— 

Sections  I-VI1 

DTNK 

Aircraft  a  ad  weapon  dynamics  for  itz 
degrees  of  freedom 

17 

18 

X 

pp.  21-41 

AERK 

Aerodynamic  force  ■  aad  momenta  for 
aircraft  in  ->ody  ana 

IB 

20 

xn 

pp.  «2-4B 

WAERK 

Aerodynamic  force*  aad  momenta  for 
bomb 

21 

22 

XIV 

pp.  48-52 

THRUSH 

Throat  force*  and  momenta  for  aircraft 
In  body  ana 

23 

24 

XV 

PP-  S2-57 

WINDK 

Wind  velocttiss  for  aircraft  aad  weapon 
in  body  ana 

2B 

28 

XVI 

pp.  38-71 

SENK 

Sensor  kinematic  e  of  aircraft 

27 

28 

... 

pp.  72-87 

PILOT 

Trimming  with  autopilot 

2B 

30 

... 

p.  124 

NOME* 

Nominal  parameter*  by  algebraic  trim 

31 

— 

pp.  111-123 

RKLK* 

Nominal  weapon  releaae 

32 

— 

— 

pp.  180-188 

LINK 

Linearisation  of  aircraft  dynamics  for 
six  degree*  of  freedom 

S3 

34 

xvn 

pp.  88-104 

SUNK 

Linearisation  of  aircraft  sensor  kine¬ 
matics 

33 

36 

— 

p.  12-13 

WLINK 

Linearisation  oi  weapon  dynamics  for 
six  degree*  of  freedom 

— 

37 

— 

}pp.  68-110 

EXEK 

Executive 

38 

3B 

... 

... 

FLOOK 

Table  input  look-up  and  interpolation 

40 

41 

xvm 

— 

PREAD 

A -array  parameter  input 

42 

43 

— 

... 

PRINT 

A-array  print 

44 

43 

— 

— 

DDUMP 

/.-array  <Uta  dump 

46 

47 

... 

... 

♦Not  implemented  in  this  study. 
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ADAP  1  SUBROUTINE  STRUCTURE 


Every  subroutine  used  in  ADAP  1  has  the  structure  shown  in  Figure  16. 


Figure  16.  Subroutine  Structure 


The  mode  flag  is  initially  set  by  the  main  program.  The  mode  flag  starts 
t  i  - 1  and  is  incremented  in  the  main  program  by  one  on  each  pass  through  the 
subroutine  until  it  reaches  1.  It  stays  at  1  until  the  end  conditions  are  reached, 
at  which  time  it  is  set  to  -2. 


ADAP  1  BASIC  SUBROUTINES 
Subroutine  DYNK 

Subroutine  DYNK  implements  the  model  developed  in  Section  III  of 
Volume  I.  It  combines  the  externally  applied  forces  and  moments  with  the 
aircraft  kinematics  and  integrates  the  resulting  differential  equations  of 
motion.  The  external  forces  and  moments  consist  of  components  due  to 
gravity,  engine,  steady-state  and  gusting  wind,  and  aerodynamics.  The 
kinematics  include  all  cross  products  of  inertia,  which  means  the  aircraft 
can  be  asymmetric  about  any  axis.  The  subroutine  assumes  that  aircraft 
body  axes  are  used.  This  means  that  forces,  moments  and  distance  supplied 
as  input  are  along  aircraft  body  axes  and  likewise  the  outputs  are  with  respect 
to  body  axes. 

The  subroutine  DYNK  flow  diagram  is  shown  in  Figure  17  and  the  pro¬ 
gram  listing  in  Figure  18.  Symbols  are  listed  and  defined  in  Table  X. 
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SUBROUTINF  DYNK(LIN) 

COMMOH/AOAP/MODE ♦ A <1000 ) 

C 

c  »#**  VARIABLE  INPUTS  **«# 

C 


EQUIVALENCE 

(SOS 

*A ( 006 ) ) t 

(FX 

*A( 071 ) ) * 

1 

(FY 

•A(07?))*<FZ 

»A(073))»(L 

*A(')77) )  * 

2 

<M 

» A ( 078  ) ) »  IN 

*  A ( 079 ) >  » (  I X 

*A( 083 ) )  » 

3 

(IY 

»A ( 084 ) ) »( IZ 

»  A( 085 ) ) * ( IXY 

»A(0R6) )» 

4 

( IYZ 

♦  A ( 087  ) ) t ( IXZ 

* A( 088 ) ) ♦ ( DELT 

*A( 089 ) )  ♦ 

5 

(r> 

♦A ( 090) ) » (MASS 

»A(091)  )* 

6 

(FLG 

»  A ( 094 ) ) • ( UG 

»  A  ( 1 0 1 ) )  * 

7 

(VG 

»A( 102 ) )  *  <WG 

»A(l03))t(RLT 

* A ( 600 ) )  t 

8 

(RMT 

*A«601 ) ) * (RNT 

*A(602))> 

9 

(XT 

♦Adlin  »«YT 

»A( 113) ) * ( ZT 

»A( 112 ) ) 

A 

»(PG 

•A (104) >  »(QG 

»A(105’ )*(R6 

»A( 106) ) 

c 

c  #***  VARIABLE  OUTPUTS  **** 

C 


EQUIVALENCE 

(X 

»A ( 002 ) ) » ( Y 

»A ( 003  ) )  » ( H 

»A< 004 ) ) * 

1 

(MACH 

♦A (005) ) * (U 

♦A(007) ).(V 

»A( 008  ) )  » 

2 

(W 

*A ( 009 1 ) » (UA 

*A( 010 ) ) ♦ ( VA 

»A(  OH  } )  » 

3 

(WA 

»A(Ol2))*(XOOT 

» A( 013 ) ) ♦ ( YDOT 

♦A( 014) ) * 

4 

(HDOT 

»A(015) ) .(VEL 

» A( 016 ) ) » (UDOT 

*A(  (>17  )  )  • 

5 

(VDOT 

»A( 018 ) ) • (WOOT 

» A1019 ) >  « ( ACGX 

•A(020))« 

6 

(ACGY 

»A ( 021 ) ) » l ACGZ 

•  A( 022  > ) • ( GAM 

•  A( 028  ) )  t 

7 

<AL 

•A(029)).(BET 

•A(030))»(TH 

•A(031))> 

8 

(PHI 

•A (032) ) * (PSI 

*  A ( 033 ) ) *  < GAMDOT 

»A  <  036 ) )  t 

9 

(ALDOT 

•A(037) ) • (BETOOT 

» A ( 038 ) )  •  ( P 

*A ( 042  ) ) » 

A 

(Q 

•A (043) ) »(R 

•AC044) ) t (PDOT 

» A ( 045 ) ) » 

B 

(QDOT 

•A (046) ) »(RDOT 

»A(047))«(STH 

♦  A ( 048  )  )  » 

C 

ICTH 

»A(049))t (SPHI 

♦A(050) ) » (CPHI 

»A( 051 ) )  « 

0 

(SPSI 

•A(052))t (CPSI 

»A(053) ) »(E11 

»A( 054 ) )  • 

E 

(E21 

»A ( 055 ) ) » (E31 

•  A( 056 ) ) *  ( E12 

i A( 057 ) ) * 

F 

( F22 

♦A(058))t(E32 

» A( 059 ) )  » ( FI 3 

»A( 060  )  )  » 

G 

(F23 

•A(061))»(E33 

* A( 062 ) ) *  t  CHI 

♦  A (066 ) )  » 

H 

(THD 

»A( 700) ) »(PHI0 

*A(701)),(PSID 

•  A( 702 ) )  » 

I 

( GAMD 

»A(703))t(RDOTo 

>  A(  704 ) )  »  ( QL'OTO 

•  A ( 705  ) ) 

equivalence 

(ALO 

#A( 706) ) » ( BETD 

. A(707 ) ) »( GAMOTO 

*A( 708 ) )  t 

1 

( ALDOTO 

•A ( 709 ) ) » ( BETDTD 

*A(710) ),(PD 

*A( 711 ) )  » 

2 

(QD 

»A(712)).(RD 

»A(713))t(CHIO 

♦A ( 714 ) ) 

3 

• ( PDOTO 

»A(713)) 

4 

•  (Ml 

A<  161) )  *  (Vf2 

* A ( 162 ) ) * ( W3 

»A ( 163  )  > 

5 

» ( W4 

A( 164 ) ) * ( W1DOT 

»A(165) )»(W2DOT 

»A  5 166 ) ) 

6 

* (W3DOT 

*A( 167) ) » (W4D0T 

» A (168 ) ) » ( THDOT 

♦A(039) > 

7 

* ( PHI DOT  »A( 040 ) ) » ( PS I DOT » A ( 041 ) ) • (ELIN 

*A(259) ) 

8 

» (HOOTl 

»A<108))f (PA 

» A(08O) )|(3A 

»A( 081 ) ) 

9 

*  ( RA 

tA(08?))*(0ELT4 

*A(265 ) ) * ( DHOLT 

»A( 266 ) ) 

C 

C 

REAL  L»M»N»IX.lY.IZtIXY,lYZ»IXZtMASS*IMOMfMACHtMT»LT»NT 
IF  (MODE)  100.200t50n 
100  IF  (MOOE.LE.-2)  RFTURN 
Pl-3.141592653589793 


l 

< 

? 


| 

! 


! 

) 
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PIC-PI/180.0 
PICIN-1. O/PIC 
RETURN 

200  FLG  •  1.0 

GAMZ  *  GAM 

IMOM  »  0.0 

SPHI-SINIPHII 
CPHI-COS(PHI) 

STH2  ■  SIN(0.S*TH> 

CTM2  ■  COS(0,5*TH) 

SPH?  ■  SIN(0.5#PHI> 

C PH?  •  C0S(0.3*PHII 

SPS?  •  SIN  1 0»3*PSI ) 

CPS2  »  C0SC0.5*PSI» 

W1  •  CPS2*CTH2*CPH2  ♦  SPS2*STH2»SPH2 

W2  »  CPS2#CTH2«SPH2  -  SPS2*STH2*CPH2 

W3  •  CPS2*STH2*CPH2  ♦' SPS2*CTH2*SPH2 

WA  •  -CPS2*STH2*SPH2  ♦  SPS2*CTH2*CPH2 

W1W2  -  W1*W2 

W1W3  -  W1»W3 

W1WA  *  W1*W4 

W2W3  •  W2*W3 

W2W4  •  W2*W4 

W3WA  -  WS*W4 

WlSO  •  '  1 

W2SO  ■  . 

W3SO  ■  W  *W3 

W4SQ  ■  W4»W4 

FNORM  ■  l.O/SORT (WlSO  ♦  W2SQ  +  W3SQ  ♦  W4SQ) 

Wl  *  Wl*FNORM 

W2  •  W2»FNORM 

W3  ■  W3#FN0RM 

W4  ■  W4* FNORM 

Ell  -  (WlSO  ♦  W2SQ  -  W3SO  -  W4S0J 

E12  »  (W2W3  ♦  W1W4|*2.0 

E13  •  (W2W4  -  W1W3)*2.0 

E21  •  (W2W3  -  W1W4I*2#0 

E22  ■  (WlSO  -  W2SQ  ♦  W3SQ  -  W4SGJ 

E23  •  (W3W4  ♦  W1W2 J*2.0 

E31  -  ( W2W4  4  W1W3)*2.0 

E32  ■  (W3W4  -  W1W?)*?,0 

E33  •  (WlSO  -  W2SQ  -  W3S0  ♦  W4SQ) 

DELTA  •  DELT/4.0 

DHDLT  ■  0.5*DELT 

350  IF(FLG.EQ.O.O)  GOTO  301 
FLG  •  0.0 

TMP4  •  1.0/(IX*IY) 

TMP5  •  1.0/(IY*|2| 

TMP6  ■  1.0/(!X»IZ) 

DK  ■  1.0  -  IXY*IXY*TMP4  -  IYZ»IYZ*TMP3  -  !XZ*!XZ*TMP6  - 

1  2.0*IXY*IYZ*1XZ*TMP4/IZ 

DAPl  ■  (1,0  -  IYZ»!YZ*TMP3>/CIX#DK> 

DAP 2  »  (IXY  ♦  !YZ*IXZ/IZ)*TMP4/DK 

DAPS  •  (IXZ  ♦  IXY*IYZ/IY)#TMP6/DK 
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,-^+Tffl-Tpry^rfrrx  a.*  •^jyF'wTCrTi}*  “^*7  "®f  ’ffy'j££*wsT  ** > 


*  r»r*  »*j  w^*=a:fc,,»>rf‘ 


DAOl 

•  DAP  2 

DAO  2 

•  (1*0 

-  IXZ*!XZ*TMP6)/<!Y*DK) 

0A03 

■  IIYZ 

+  !XZ*!XY/!X)*TMP5/0K 

DARI 

■  DAP  3 

DAR2 

•  DAO  3 

DAR3 

•  (1.0 

-  IXV*IXY*TMP4)/<IZ*DX) 

300  IF(LIN.EO.l)  GOTO  SOI 

PDOT1 

• 

PDOT 

OOOT1 

• 

000 T 

RDOT1 

• 

ROOT 

UDOT1 

a 

UDOT 

VDOT1 

a 

VOOT 

WDOT1 

a 

MOOT 

W1DOT1 

a 

W1DOT 

W2DOT1 

a 

W200T 

W3D0T1 

a 

W3DOT 

W4D0T1 

a 

W4DOT 

XDOTl 

a 

XDOT 

YDOTl 

a 

YDOT 

HDOTI  ■ 
GOTO  530 
ELIN«0« 

HOOT 

ACGX 

a 

<XT+FX)/MASS 

ACGY»(YT*FY)/MASS 

ACGZ*IZT+fZ) /MASS 

LT«RLT*L 

MT-RMT+M 


nt-rnt+n 

IF(LIN.EO.O)  GOTO  600 
STH-SINITH) 

CTH-COS(TH) 

SPH!«SIN(PHI) 

CPHI-COSIPHI 1 

SPS1-S1NCPSII 

CPSI-COSIPS1 I 

E11«CTM*CPS1 

E12»CTH*SPSI 

E13—STH 

E21«-CPHI*SPSI+SPHI*STH*CPSI 
E22*  CPHI«CPSI+SPHT*STH*SPSI 
E23-  SPHI*CTH 

E31»  SPHI*SPSI+CPHI*STH#CPSI 


E32»-SPHI*CPSI+CPHI*STH*5P5I 
E33»  CPHI*CTH 
SECTH  •  l./CTH 
TANTH  ■  STH/CTH 
TH007  ■  CPH I  *0~SPH  1  *R 

PHIOOT  •  P+SPHI*TANTH*Q+CPHI*TANTH*R 
PS I DOT  -  SPHI*SECTH*Q+CPHI*SECTH*R 
600  DAI  «LT  ♦  Q*R*IIY  -  !Z»  -  IYZ*CR*R 

OA2  ■  KT  ♦  R*CP*UZ  -  IX)  -  IMOM)  - 

1  0*1 IXY*R  -  IYZ*P| 

DA3  «NT  ♦  Q*IP*UX  -  IY)  ♦  IMOM)  - 
1  R*(IYZ*P  -  IXZ*0) 


-  0*0)  ♦  P*IIXZ*0  - 
I XZ* ( P*P  -  R*R)  ♦ 

IXY*(Q*0  -  P*P)  ♦ 


IXV*R) 


| 


! 


Figure  18.  Subroutine  DYNK  Program  Listing  (continued) 
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COMPUTATION  OF  BODY  AXES  VELOCITIES  AND  ANGULAR  ACCELERATIONS 

UOOT  ■  ACGX  ♦  G*£l3  -  W*Q  +  V*R 

VOOT  ■  ACGY  +  G*E?3  -  U«R  +  W*P 

WDOT  *  ACGZ  ♦  G»E33  -  V*P  +  U»Q 

POOT  »  DA1*DAP1  +  DA2*DAP2  +  DA3»DAP3 

QOOT  ■  0A1*0AQ1  DA2*0A02  ♦  DA3«DAQ3 

ROOT  «  OAl*OARl  ♦  0A2«DAR2  +  DA3«DAR3 

A(661)-U/1.69 

COMPUTE  A/C  VELOCITIES  W.R.T.  EARTH  IN  EARTH  COORDINATES 

XOOT  »  E11*U+E21*V+E31«W 

YOOT  ■  E12»U+E22*V+E32*W 

HOOT  — E13*U-E23*V-E33*W 

IF(LIN.EQ.l)  GOTO  2000 
WlDOT  »  -P*W2  -  Q*W3  -  R«W4  • 

W2DOT  ■  P*W1  +  R#W3  -  Q»W4 

W300T  «  0»W1  -  R*W?  ♦  P*W4 

W4DOT  ■  R»K1  ♦  Q*W?  -  P«W3 

IFIMODE.EO.O)  RETURN 

COMPUTE  EULER  SYMMETRICAL  PARAMETERS 

W1  ■  W1  +  OELT4*<3.0*W1DOT  -  '-'1DOT1) 

W2  «  W2  ♦  DELT4*(3.0*W200T  -  W2DOT1 » 

W3  ■  W3  +  DELT4*(3,0*W3DOT  -  W3DOT1) 

W4  ■  W4  +  0ElT4«I3.0»V/400T  -  W4DOT1) 

COMPUTE  EARTH  TO  BODY  ROTATION  MATRIX  (E) 

1000  W1W?  •  Wl*W2 
W1W3  -  W1*W3 
W1W4  -  W1*W4 
W2W3  ■  W2*W3 
W2W4  *  W2*W4 
W3W4  ■  W3*W4 
W1SO  ■  W1*W1 
W2SO  ■  W2»W2 
W3SO  -  W3*W3 
W4SO  •  W**W4 

FNORM  «  1,0/SORT (WlSO  +  W2SO  +  W3SQ  ♦  W4SQ) 

W1  ■  Wl*FNORM 
W2  ■  W2*FN0RM 
W3  *  W3*FN0RM 
W4  «  W4»FN0RM 

Ell  »  (WlSO  +  W2SO  -  W3SO  -  W4SO) 

E12  »  (W2W3  ♦  W1W4 )*2»0 

E13  »  ( W?W4  -  WlV/3)*2#0 

E21  «  (W2W3  -  W1W4)*2.0 

E22  ■  (WlSO  -  W2SO  ♦  W3SO  -  W45Q) 

E23  »  (W3W4  ♦  W1W?)«2.0 

E31  ■  (W2W4  ♦  K1W3)*2*0 


Figure  18.  Subroutine  DYNK  Program  Listing  (continued) 
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nnn  n  r>  r»  r»r»o 


F32  ■  (W3W4  -  W1W?>*?.0 

F33  ■  (W1S0  -  W2SQ  -  W3S0  +  W4S0) 

IF(ABS(EX3).GT.l.)  GOTO  2015 
ARG2»  SQRT(l.-rl3*Fl3) 

TH—  ATAN2(E13.ARG2) 

GOTO  2016 

2015  F13«ABS(E13)/F13 

2016  CONTINUE 

PHI  -  ATAN2JE23.F33) 

IF  (PHI.GT.3. 141593)  PHI  «  PHI  -  6.283166 
SPHI  ■  SIN (PHI) 

CPHI  •  COS (PHI) 

PSI  «  ATAN2(E12»E11 ) 

IF  (PSI.GT. 3. 141593)  PSI  ■  PSI  -  6.263186 

INTEGRATE  BODY  VELOCITIES  AND  ANGULAR  ACCELERATIONS 

U  «  U  +  0H0LT*(3»0#UD0T  -  UDOT1) 

V  ■  V  +  0HDLT*(3.0*VD0T  -  VPOTl) 

W  *  W  +  0H0LT*(3*0#V.‘00T  -  WDOT1) 

P  «  P  +  0HDLT*(3*0#P00T  -  PDOT1) 

Q  *  0  +  DHDLT*(3.0*QD0T  -  OOOT1) 

R  -  R  +  DHDLT*(3.0*RD0T  -  R00T1) 

INTEGRATE  FARTH  VELOCITIES 

X  «  X  ♦  DHDLT*(3.0»XD0T  -  XOOT1) 

Y  -  Y  ♦  DHDLT*( 3.0* YDOT  -  YDOTl) 

H  ■  H  +  DHDLT*(3.0*H00T  -  HOOTl) 

CHI  -  ATAN2 ( YDOT *X00T ) 

IF  (CHI.GT. 3. 141593)  CHI  »  CHI  -  6.283186 
GAM  •  ATAN  (HOOT/SORT (XOOT#XDOT  ♦  YDOT* YDOT ) ) 

INCORPORATE  WIND  COMPONENTS 


UA 

■  U  - 

UG 

VA 

■  V  - 

VG 

WA 

■  W  - 

WG 

PA»P-PG 

QA»Q-QG 

RA-R-RG 

TMP1  •  UA*UA  ♦  WA*WA 

TMP2  •  SQRT(TMPl) 

TMP3  ■  TMP1  +  VA*VA 

VEL  «  SORT (TMP3 ) 

MACH  «  VEL /SOS 

AL  -  ATAN(WA/UA) 

BET  »  ATAN ( VA/TMP2 ) 

ALDOT  ■  (UA*WDOT  -  WA*UDOT > /TMP1 

BETDOT  ■  (TMP1*VD0T  -  VA*(UA*UDOT  +  WAfWDOT ) ) / ( TMP2*TMP3 ) 

THD  •  TH*PICIN 

PHID  ■  PHI*PICIN 

PSID  •  PSI*P ICIN 

GAMD  ■  GAM*P ICIN 

Figure  18.  Subroutine  DYNK  Program  Listing  (continued) 
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RDOTD  ■  RDOT*PICIN 
GDOTD  •  QDOT * PIC IN 
PDOTD  ■  PDOT*PIClN 
ALD  •  AL*PICIN 
BETH  «  9ET*P ICIN 
GAMDTO  ■  GAMDOT*PIClN 
ALDOTD  ■  ALPOT#PICIN 
RETDTD  «  BETDOT#PIClN 
PD  ■■  P*PICIN 
QD  ■  Q*PICIN 
RD  «  R»PIC!N 
CHID  »  CH1*P1CIN 
RETURN 

2000  CONTINUE 
RETURN 
END 


Figure  18.  Subroutine  DYNK  Program  Listing  (concluded) 
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CM 

ffl 

© 

a 

O’. 

© 

os 

H 

CM 

CO 

O 

0 

o 

H 

«H 

H 

o 

o 

o 

'O 

73 

TJ 

N^HHNnHNMHMM  H 

W  $  «  &  fc  h  0'0’0'W  K  K  H  N  n  hi 

w  H  H  <|  <5  <  <3  <J  <  <3  <3  <3  «aj  <;  <  H 

UUUQ  Q  Q  fl  Q  Q  Q  S  3  d  fld  Q 


t-I  CM  CO  >-H  CM  CO 

CM  CM  CM  CO  CO  CO 

Tf  T3  V  13  V  V 


CM  CO 
«m  m  <4 


vV"  {"7W 
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PHI  32  rad  I  X  Euler  roll  angle 

PHID  701  deg  I  X  Euler  roll  angle 
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at 

•i 

tkO 

d 

•d\S 
o  x  a> 
j3  ust*. 

JSJ  JS  <%>■>  5 


bo  bo  0  ^  oa 

a  a  1|  & 
11  |!  .2 
*  *  |"S  I 

at  at  9.  v  c 

dd  rf 

w  w  <  ^  Q 


XXX 


o  « 
a  d 

ax  >> 

8S.2 

<5  d  * 


XX  X 


X  X  X  X 


bo 

O 

CM 

CM 

CM 

CM 

CM 

*3 

O 

o 

o 

O 

O 

Ci 

O 

O 

a) 

at 

0) 

at 

V 

V 

at 

«t 

a> 

at 

at 

Tt 

(4 

0) 

09 

08 

08 

CO 

CQ 

08 

08 

08 

bo 

«■***„ 

•o 

bo  TJ 

•a 

bo 

T3 

bo 

•o 

•a 

bo 

T3 

bo 

at 

at  at 

4) 

at 

V 

at 

at 

at 

at 

at 

at 

at 

(4 

•o  h 

T3 

(4 

TJ 

•o 

k 

k 

TJ 

$4 

-3 

CM 

eo  o  eo 

m  t>  tji 


o  CM 
l>  T-l 

fr¬ 


iz;  ^  05 

u  u  -  9  < 

M  S  S  co  M  CQ  Q 

&  a,  &  &  o’  o’  o’ 


§  § 

CO 


a  h 

s  s 

§  8  K 


B 

Q  Q 
05  05 


t=  fc"  £  cr 


•  fc"  •  cr  t4 


Q  rH  | 

S  Si 

Q  Q 
05  05 


• u 


s 

!  1 
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Table  X.  List  of  Symbols  for  Subroutine  DYNK  (continued) 


QQ  tO 

9  I 

X  * 
m  o 

I  « 

t  * 

4?  0) 

g  ota 
o  at* 

1  SS 

>  o 

«r 

CD  H 

3 

too  &  _ 
o  00 
•g  oS 

ft  d)  «J 

£  >  * 


0  > 
"•  «  . 
d  os  «* 
a)  a  © 

8  S  §> 

a  r,  -S 

!« 1 

Q  4->  •*- 


IS  3 

>  >t  H 


*»  d 

«  Sf 
Pc  S 


os  too 
•rj  d 

«  3 

»  O 

I  ■s 

rt 


•d  d  fj 

o  oS 
,2  9*  u 
15  g  {* 
>  §  ° 
%  °  u 

CO  .  J* 

a  fij 

*  <J.2 

d  5  X 

fl,  « 

>  N 


!» 

o 

0) 

> 

•* 

+> 

aJ 

o 

> 

<u 

d 

d 

0) 

i — * 

X) 

CD 

> 

0> 

4J 

fi 

CO 

•S 

(8 

H 

fa 

XXX  x  XXX 


too  3 

d  toc-p 

'rt  ®  -2  J* 

"  *,  d  £ 
>»  O  U  o 
*i  v 
o  c-S  £ 

o  «3  ^ 

|  g  S  % 

l  ».  s 

m  d  ■£  u 
3  o  2  <u 
M  0,2  t 

-at!?  o 

I  •§!  i 

£  fa  8  H 


X  X 


H  H 
O  Q  J 

O  <!  Q  Q  W  O  . 

53>  >  >  >  >  >  £ 


H  H 
O  O 

Q  Q  0  -h 

!*  !*  £  * 


*  too  o 
•>  •*  * 


WIDOTI  X  Past  value  of  X 
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Subroutine  AERK 


Subroutine  AERK  implements  the  model  developed  in  Section  IV  of 
Volume  I.  It  is  used  to  generate  aircraft  nonlinear  aerodynamics,  i.  e. ,  aero¬ 
dynamics  which  are  a  function  of  empirical  curves.  A  general-purpose  sub¬ 
routine  to  perform  this  function  is  impossible  because  there  is  no  standard 
form  for  specifying  nonlinear  aerodynamics.  However,  this  problem  is  re¬ 
duced  to  its  simplest  form  in  ADAPS.  The  user  just  encodes  his  particular 
form  of  aerodynamic  equations  into  subroutine  AERK  and  sets  up  his  aero¬ 
dynamic  data  in  function  look-up  form.  (Appendix  I). 

Aircraft  coefficients  and  their  look-up  representations  are  listed  in 
Table  XI.  The  subroutine  AERK  flow  diagram  is  shown  in  Figure  19  and  the 
program  listing  in  Figure  20.  Symbols  are  defined  in  Table  XII. 


Subroutine  WAERK 

Subroutine  WAERK  implements  the  model  developed  in  Section  IV  of 
Volume  I.  It  is  used  to  generate  we  pon  nonlinear  aerodynamics.  In  general, 
the  user  must  encode  his  particular  form  of  weapon  aerodynamic  equations 
into  subroutine  WAERK  and  must  set  up  his  weapon  aerodynamic  data  in 
function  look-up  form  (Appendix  I). 

Bomb  aerodynamic  coefficients  and  their  look-up  representations  are 
listed  in  Table  XIH.  The  subroutine  WAERK  flow  diagram  is  shown  in  Fig¬ 
ure  21  and  the  program  listing  in  Figure  22.  Symbols  are  listed  in  Table  XIV. 


Subroutine  THRUSK 

Subroutine  THRUSK  implements  the  model  developed  in  Section  IV  of 
Volume  I.  It  generates  total  forces  and  moments  along  aircraft  body  axes 
produced  by  the  thrusters  on  the  aircraft.  In  addition  to  two  main  jet  engines, 
three  thrust  points  are  provided  in  the  subroutine  for  simulating  the  vernier 
thrusting  in  high-performance  aircraft. 

The  subroutine  THRUSK  flow  diagram  is  shown  in  Figure  23  and  the  pro¬ 
gram  listing  in  Figure  24.  Symbols  are  listed  in  Table  XV. 


Table  XI.  Representation  of  Aircraft  Coefficients  in  Stability  Axes 


Coefficient 

Look-Up 

Representation 

Mnemonic 

Units 

CL<Ma’h'“°w> 

Fl(l.  2,  3) 

CL 

C  (h,  Ma> 

F2(2, 1) 

CZQ 

per  radian 

C^(h.Ma) 

F3(2. 1) 

CZALDT 

per  radian 

CL  <h.«°w.Ma> 

5s 

F4(2,  3, 1) 

CLDS 

per  degree 

CL  (h.Ma) 

Csp 

F5(2.1) 

CLDSP 

per  degree 

C  (h,  M  ) 

8a 

F6(2, 1) 

CLDA 

per  degree 

CLa  to°WMa> 

8aB 

F7(3, 1) 

CLDSB 

per  degree 

CL.  <“V 

8LG 

F8(3) 

CLDLG 

CD(Pow.MaCL) 

F9(4, 1,  5) 

CD 

CD(C  sB'CL'  Ma^ 

F10(6,5.1) 

CDDSB 

C  (CL) 

8lg 

Fll(5) 

CDDLG 

Cmca(Ma-h-“°w> 

F12(l,  2,  3) 

CMCA 

Cmq<h-Ma> 

F13<2, 1) 

CMQ 

per  radian 

C 

mi  a 

F14(2, 1) 

CMALDT 

per  radian 

Table  XI.  Representation  of  Aircraft  Coefficients 
in  Stability  Axes  (continued) 
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Coefficient 

Look-Up 

Representation 

Mnemonic 

Units 

Cm.  <h-"°WMa) 

8s 

F15<2,3,1) 

CMDS 

per  degree 

Cm,  to°Wh-Ma> 

F16(3,  2, 1) 

CMDSP 

per  degree 

°sp 

CmA  <"°Wh-Ma> 

6a 

F17(3,2,l) 

CMDA 

per  degree 

cm„  <Ma-“°w> 

5bB 

F18(3, 1) 

CMDSB 

per  degree 

cmjt  <"V 

F19(3) 

CMDLG 

°LO 

y°wh-M.' 

F20(3f  2, 1) 

CYBET 

per  degree 

Cyr<a°W  h.  Ma> 

F21(3, 2, 1) 

CYR 

per  radian 

C  (h,a°.M) 
v  w  a 

F22(2, 3, 1) 

CYP 

per  radian 

c  (Ma> 

°sp 

F23(ll 

CYDSP 

per  degree 

C  (Ma) 

\ 

F24(l) 

CYDA 

per  degree 

C  (h.M  ) 
y«r 

F25(2, 1) 

CYDR 

per  degree 

Cnpte°Wh-Ma» 

F26(3,  2, 1) 

CNBET 

per  degree 

Cnr(M.-h-"°w> 

F27(3,  2, 1) 

CNR 

per  radian  | 
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Table  XI.  Representation  of  Aircraft  Coefficients 
in  Stability  Axes  (continued) 


Coefficient 

Look-Up 

Representation 

Mnemonic 

Units 

C„p(h-“°WMa> 

F28(2, 3, 1) 

CNP 

per  radian 

Cn.  <“°W  Ma> 

6ap 

F29(3, 1) 

CNDSP 

per  degree 

Cn„  <"°w'h-Ma> 

5a 

F30(3,  2, 1) 

CNDA 

per  degree 

C  (h,Ma) 

6r 

F31(2.1) 

CNDR 

per  radian 

Cl„(aVh-Ma> 

F32(3,  2,1) 

CLLBET 

per  degree 

Clr(a°w,h,Ma) 

F33(3, 2, 1) 

CLLR 

per  radian 

Clp(<.°w.h.Ma) 

F34(3,  2, 1) 

CLLP 

per  radian 

C  («°w.h.Ma) 

F35(3,  2,  1) 

CLLDSP 

per  degree 

»sp 

Cl  <“°Wh-Ma> 

Sa 

F36(3,  2, 1) 

CLLDA 

per  degree 

Cl,  (“°w-h-Ma> 

5r 

F37(3,  2, 1) 

CLLDR 

per  degree 

X„  (Y^.wt) 

c.  g.  trm 

F45(10, 15) 

XCG 

inches 

Zc.g.<Ytrm-'rt» 

F46(10, 15) 

ZCG 

inches 

yytrm-  wt) 

F47(10, 15) 

IX 

slug/  ft5* 

VY.rm-  *» 

F48(10, 15) 

IY 

slug/ ft5* 
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Table  XI.  Representation  of  Aircraft  Coefficients 
in  Stability  Axes  (concluded) 


Coefficient 

Look-Up 

Representation 

Mnemonic 

Units 

_ 

V*trm-WT> 

F49{10, 15) 

IZ 

slug/ ft2 

WYtrm-WT> 

F50(10, 15) 

IXZ 

slug/ ft2 

p(h) 

F53(2) 

RHO 

lbs/ ft3 

a(h) 

F54(2) 

SOS 

ft/  ?ec 

Argument 

Look-Up 

Representation 

Mnemonic 

Units 

M 

V(l) 

Mach 

h 

V(2) 

H 

feet 

o 

*  w 

V(3) 

ALH° 

degree 

Power 

V<4) 

POWER 

per  unit 

cT 

AJ 

V(5) 

CL 

6  ab 

V(6) 

YDSB 

degree 

5s 

V(7) 

YDS 

degree 

wt 

V(15) 

WT 

pounds 
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SUBROUTINE  AFRK 
DIMFNSION  XT ( 2 ) 

COMMON /ADAP/MODE»A( 1000) 

OIMFNSION  V(20)»F(8v‘) 

####  parameter  inputs  «*** 


EQUIVALENCE 

(SOS 

♦  A (006) »  »(G 

»  A( 090 ) ) » ( MASS  »A(091 )) * 

1 

(RHO 

» A ' 114 ) ) «  « B 

* A( 115 )  ).(C 

»A( 116) ) * 

2 

(S 

♦A ( 1 17 ) ) 

»(WT 

♦  A( 716 ) ) 

3 

•  (XCA 

•  A ( 579 ) ) • <  YCA 

»A(t,9U))»(ZCA 

»A( 581 ) ) 

4 

» ( YTRM  »A(65l t ) 

#**#  VARIABLE  INPUTS  ##** 

EQUIVALENCE 

(H 

»A ( 004 ) ) * (M/  CH 

*A(003 ) ) ,(VEL 

. A ( 016  )  )  * 

1 

(AL 

»A ( 0?9 ) ) » ( BET 

»A(  030  ) )  » ( ALDT  »A(<>37))» 

2 

(PA 

»A(080) ).(OA 

*A( 081 ) ) • 

3 

(RA 

•A(0fl2) ) .(YDS 

»A(121)).(YDA 

»A! 123 ) ) ♦ 

4 

(YOR 

tA(l?5>) *(YSP 

♦A( 645 ) ) » ( YSR 

» A ( 646 ) ) ♦ 

5 

( YLG 

» A( 648  ) )  • 

6 

( XT  { 1 1 

» A{ 559 ) ) * ( ALD 

»A(7!‘6) )  * 

7 

(13ETD 

»A ( 707 ) ) • (U6 

♦  A(  iOl ) )  * (l'G 

»A(  1>.’3 ) ) 

8 

•  (VG 

*A ( 102 ) ) » ( PG 

♦A(104) ),(QG 

»A( 105  ) )  » 

9 

(RG 

♦  A ( 106 ) ) * (U 

t  A(  007  )  )  »  ( VSIDE  •A(L-Q8))« 

A 

(W 

»A(009))»(P 

»  A( 042  )  )  i  (  Q 

*A(u43)>. 

(R 

•A (044) ) t (UDOT 

»A(017)  »♦ 

C 

(WDOT 

»A(019>) 

*«**  VARIABLF  OUTPUTS  **** 

EQUIVALENCE 

(UA 

• A ( 01 0 ) ) »(NA 

»A(012)  )t 

1 

(OBAR 

tA(070)).(FX 

»  A(07l ) )  »  (  FY 

»A(U72))» 

2 

(F7. 

♦A(073)S*(L 

*  A( 077  ) )  * ( M 

*A( 078 ) ) * 

3 

(N 

»A(079))*(IX 

»A:083))*(  IY 

»A(.'84>>» 

4 

*  12 

tA(0«5)).(IXY 

» A( 086 ) ) t ( I YZ 

•A ( 087  ) )  » 

5 

(  IXZ 

»A(088) ) »(XCG 

»A(611) )»(ZCG 

*A( 612  )  > 

0 

• (DXCA»A(095))»(DYCAf A (096  }  > » (DZCA.A(097) ) » 

7 

( FXS 

•A( 148 ) ) « (FYS 

» A( 149 ) ) > ( FZS 

»A( 150) ) » 

8 

(LS 

♦A* 151 > ) » (MS 

» A ( 15? ) ) * (NS 

♦  A( 153 ) ) 

«*«« 

FUNCTIONS  ***# 

EQUIVALENT 

(CL 

»F(0l))*(CZU 

•  F( 02) ) • (CZALDT »F( 03 ) 5  * 

1 

(CLOS 

♦F ( 04 ) ) » (CLDSP 

*F( 05) ) » (CLOA 

»F(06) ) » 

2 

(CLHSB 

»F ( 07 ) ) « (CLDLG 

*F ( 08 ) ) » ( CD 

»F( 09  > ) » 

3 

i cross 

*F(10))t(C:.OLG 

tFCll))*(CMCA 

♦  F( 12  ) ) » 

4 

(CMQ 

»F( 13 ) ) t (CMALDT  »F( 14) ) *(CMOS 

•FI  15 ) ) » 

5 

( CMDSP 

»F ( 16 1  *  # ( CMDA 

.F(17))*(CM0SU 

•  F ( 18  ) )  • 

6 

( CMDLG 

•F 1 19 ) ) »  <  CYBFT 

t F( 20) ) * (CYR 

♦  F(2! ) ). 

7 

(CYP 

»F(2? ) ) » (CYDSP 

»F»23)) »«CYDA 

»F(24) )  • 

C 

(CYOR 

.,F(25  )  >  t  (CNBET 

»F l 26) ) # (CNR 

•  F ( 27  * )  » 

7 

(CNP 

»F ( *8 ) ) » { CNDSP 

*F ( 29) ) » (CNDA 

*F ( 30 ) )  * 

(CNDR  »F<31)  t(CLLPFT,F(32)),<CLLR  .F ( 33 ) ) 


Figure  20.  Subroutine  AERK  Program  Listing 
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k  v  v  ;r  v^x*" 


p,  cep*v»*T-  ^--  ^  "f  r^>^T^'V 


5  <  CLLP  »F<  34  1 1 » I  CLLDSP.F ( 35  ) )  *  f CLLDA  »F(36)>. 

C  ICLLDR  * F ( 3 7 ) » 

RFAL  L.M.N.LS.MS.NS.IX.IY.IZ.IXY.IYw.IXZ.MASS.MACH 
IF(MODE) 100.200.500 
100  IF(M0DE.LE.-2>  RETURN 
PI*3o 141592653389793 
PIC-PI/180. 

PICIN-l./PIC 

Cf>2«C*.5 

RD2»n#.5 

RNDM-0. 

RETURN 
?00  CONTINUE 
500  CONTINUE 

SUMXT-XT ( 1 )+XT  <  2 ) 

IF ( SUMXT.GT .100.  )  r.OTO  510 
POWFR-0. 

GOTO  520 
510  POWFR-1. 

520  CONTINUE 


PERFORM  LOOKUP 
VI? J»H 

WEIGHTS  AND  MOMENT  OF  INERTIA 

CALL  FLOOK I V. F .53 • 54 ) 

RHO-F (53 ) 

SOS-FI54) 

MASS-WT/G 
VdOI-YTRM 
V ( 1 5  I -WT 

IF(  RNDM 1600 .550 *600 
550  CALL  FLOOK ( V . F .45 . 50 ) 
XCo»F(45) 

ZCG-EU6) 

ZCA--ZCG 


POSITION  VECTOR  OF  A.C. 

OXCA  «(XCG  ♦  XCAJ/12. 
r’YCA  «  YCA/12. 

DZCA  »(ZCG  +  ZCAJ/12. 

IX  »F(^7> 

IY  -FC4F ' 

IZ  «F(';9) 

IXZ-FI50I 

IF  (MACH  .EQ.  0.01  MACH  *  VEL  /  SOS 
IF  (VEL  .EQ.  0.0)  VEL  -  MACH  *  SOS 
VA-VSIOE-VG 

UAS«SORT<VFL*VFL-VA*VA) 

UA-UAS*COS(AL> 

UA«IIAS*SIN(AL) 

U-UA+UG 


Figure  20.  Subroutine  AERK  Program  Listing  (continued) 
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o  nrv 


vsidf«va+vg 

W*WA+WG 

RNDM*1» 

600  CONTINUE 
UA«U-UG 
VA*VSID£-VG 
WA-W-WG 
PA*P-PG 
QA*Q-QG 
RA»R~RG 

UAS-SQRT (UA*UA+WA*WA ) 

AL-ATAN2IWA.UAJ 

ALD*AL*PICIN 

RET«ATAN2<VA*UAS) 

BETD«BE^*PICIN 

VEL*SQRT ( UA*UA+VA* VA+WA#WA ) 

MACH-VEL/SOS 

ALDT* ( UA*WOOT-WA*UDOT I / 1 UAS»UAS  J 

V(1|»MACH 

V(3)«ALD+i. 

C^LL  FLOOMV*F»l»l) 

Vi*») -POWER 
VCM-Cl 

CALl"fL00K<V.F.2,37> 

C 

DO  5?5  I*l»37 
525  A ( 800+1 )*FI I ) 

OBAR  *.5*RHO«VFL«VEL 
QBARS*OBAR«$ 

COMPUTE  TOTAL  AERODYNAMIC  COEFFICIENTS 

CAL*COS(ALI 
SAL*ST?«IALJ 
UAS  «=  cal*ua+sal*wa 
PAS  ■  CAL*PA+SAL*RA 
QAS  *  OA 

RAS  •— SAL*PA+CAL*RA 
CK1  •  BD2/UAS 
CK2  ■  CD2/UAS 
CAD  •  CK2+ALDT 
CBD  -  CK1»8ETD 
CP  •  CK1*PAS 
CQ  «  CK2*OAS 
CR  •  CtCl*RAS 
AYSP*  '.BSIYSP) 

AYDA*  ABS(YOA) 

C 

SUMCD  ■  CD  ♦  CDDSB  ♦  CDDLG#YLG 
C 

SUMCY  •  CYUET*BETD  ♦  CYP«CP  ♦  CYR#CR  ♦  CYDA+YOA  ♦  CYDR+YDR  ♦  CVDSP 
1«YSP 


Figure  20.  Subroutine  AERK  Program  Listing  (continued) 
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SUMCL  «  CL  -  CZALDT*CAD  -  CZQ*CO  +  CLDA*AYDA  +  CLOS*YDS  ♦  CLDSP*AY 
ISP  ♦  CLDS8*YSB  +  CLDLG~YLG 
C 

SUMCLL-  CLLB£T#8ETD  +  CLLP*CP  +  CLLR*CR  ♦  CLLOA*YDA  ♦  CLLDR*YDR  ♦ 
1CLL0SP*YSP 
C 

SUMCMCA*  CMC A  +  CMALDT#CAD  +  CMQ*CQ  +  CMDA«YDA  ♦  CM0S«YD5  ♦  CMDSP* 
1YSP  ♦  CMDSB»YSB  ♦  CMDLG#YLG 
C 

SUMCN  ■  CNBFT«BETD  +  CNP»CP  ♦  CNR*CR  ♦  CNDA*YDA  ♦  CHDR*YDR  ♦  CN.'.SP 
1*YSP 
C 

C  FORCES  IN  STABILITY  AXES- 
C 

FXS  «  -QBARS*SUMCO 
FYS  »  OBARS*SUMCY 
FZS  ••  -Q8ARS«SUMCL 
C  TRANSFORM  TO  BODY  AXES 
C 
C 

FX  a  FXS«CAL-FZS»SAL 
FY  ■  FYS 

FZ  a  FXS*5AL+FZS*CAL 
C 

C  MOMENTS  IN  ABILITY  AXES  AT  A.C. 

C 

LS  ■  QBAR «i*8*5UMCLL 
MS  a  QBARS»C*SUMCMCA 
NS  •  OBARS*9*SUMCN 
C 

C  MOMENTS  IN  BODY  AXES  AT  C*G* 

C 

L  -  LS*CAL-NS*SAL-OZCA«FY«-DYCA*FZ 
M  -  MS40ZCA»FX-0XCA*FZ 
N  «  ls*sal«-ns*cal-oyca*fx-*oxca*fy 

RETURN 

END 


Figure  20.  Subroutine  AERK  Program.  Listing  (concluded) 


Table  XII.  List  of  Symbols  for  Subroutine  AERK 


*>u 

?  ns  cO 


CLDA  806  per  deg  X  Lift  coefficient  of  6, 


Table  XII.  List  of  Symbols  for  Subroutine  AERK  (continued) 

Quantity  Mnemonic  Units  Input  Output  Description 


cn^t 


Roll  rate  in  stability  axes 


Table  XII.  List  of  Symbols  for  Subroutine  AERK  (continued) 
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Table  XII.  List  of  Symbols  for  Subroutine  AERK  (concluded) 

Quantity!  Mnemonic  I  I  Units  Input  |  Output  |  Description 


l 

t 

i 


* 

O 

44 

o 

A 

> 


O 

o 

H 

A 

> 

44 

o 

0) 

<o  a 
3  A 

.13  * 
c  e 

3  3 


* 

A 

44 

3 

^  A 

&•>  X 

5 

G  I 

5  “ 

ft 

o 

■w  AO 

a  a 

05  O 
C  -J 

o  a 
g* « 

s  ® 

o  2 
U  8 


44 

u  S 

B  o 

3  °* 

& 

A  05 

0 

o  5 

ja 

44  3 

3  A 

a 

A  3 

0  44 

a<a 

bS 

a 

a 

O  A 

a * 

AO  9 
o  °- 

u 

444*0 

<44  A 

o 

O  2 

O  G 

b 

A  || 

A  S 

A 

•m 

o 

<P  ^ 

2  ►» 
5*0 

15  54 

44  •** 

•p 

x 

■25 

TJ  A 
3  5a 

fa® 

♦*-» 

§  a 

2  T3 

O  05 

0) 

O  O 

G  x 

£ 

X  *44 

x  '£ 

X 

X 

X 

0) 

c 

AO 

c 

05 


3 

a 

-*-> 

3 

O 

*» 

K 

3 

3 

A 

H 


uB 

05  o 

c  a 

05  05 
C5  5 
*4  C 
3  05 
05  3 

BB 

O  05 

8* 
4. -a 
° 

|£ 

3-2 

0  c 
o  c 
o  o 

>.b 


c 

o 

•44 

44 

o 

05 

c 

05 

•o 

3 

o 

u 

05 


£ 

.*4 

44 

o 

.0 


3 

o 

44 

o 

05 

C 

05 

T3 

3 

05 

? 

3 

(4 

05 

> 

*4 

O 

.05 


3 

O 

•3 

44 

O 

05 

C 

05 

TJ 

3 

O 


X) 

a 

44 

(0 

I 


o 

A 


c  3 

.2  o 

Tf  .*4 


O 

c 

05 
T3 

& 

05 
A0 

A0 
3 

•3 

T3 
3 

.2  (0 


G 

05 

C 

05 

•0 

05 

Jrf 

A 

3 

ja 

•O 

05 

s. 


I 

44 

C5 

.05 


5 

•3 

44 

C5 


3 

O 

»3 

44 

G 

C 

A 

TJ 

3 

«{ 

•3 

s. 

a 

l 

44 

o 

.A 


3 

O 

44 

44 

o 

A 

C. 

A 

T3 

& 

b 

3 

O 

3 

A 


W  W  w  w  w  w  < 


u 

A 

44 

3 

A 

O 

44 

3 

A 

a 

o 

a 

«T4 

o 

44 

3 

A 

3 

|S 

I  g 

o  o 
N  b 


uB 

A  o 
3  “* 
A  05 
o  5 

44  3 

3  A 
A  (4 

BB 

O  A 

a u 

^•o 

0  S 

B  ^ 

■S5 

§a 

G  O 
N  & 


X 


X  X 


X 


X 


X  X  X  X  X  X  X 


3 

A 

G 

3 


& 


m 

A 

.3 


G 


3 

•4 


A0 

T3 

A0 

A0 

A0 

A0 

A 

a 

A 

A 

A 

A 

*o 

3 

•v 

TJ 

*o 

T3 

a 

A 

a 

G 

3 

•r*» 


to 

A 

A 


G 

3 

•  »4 


05  H  05  O 

r-  44  in  co 

in  co  in  in 


<5 

U 

X 


A 

G 

X 


O 

u 

X 


A0 

o 

X 


•■o' 

H 

X 


< 

u 

i* 


H 

X 


A 

O 

>5 


m 

fH 

00 

CO 

m 

4-4 

4-4 

eo 

N 

C9 

4j< 

tl* 

in 

00 

4—4 

H 

H 

CO 

CO 

CO 

CO 

in 

l  > 

< 

Q 

pH 


K 

CO 

o 

03 

a, 

K 

< 

o 

Q 

Q 

CO 

CO 

H 

o 

o 

fH 

fH 

'pH 

{H 

pH 

X 

N 

A 

3 

A 

A0 

A 

a 

A 

*o 

•O 

<5 

a 

m 

G 

>> 

>» 

>1 

>» 

>! 

>> 

>fc 

N 

A0 

G 

N 


77 


.4..  .*  _.i. 
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Table  XIII.  Representation  of  Bomb  Aerodynamic 
Coefficients  In  Cross- Velocity  Axes 


Coefficient 

Look-Up 

Representation 

1 

Mnemonic 

Units 

CN(“°-Ma> 

F75(3, 1) 

CN 

CN  <i°.Ma> 

0 

F76(3, 1) 

CNDEL 

per  degree 

CA(Ma> 

F77(i) 

CA 

F78(3, 1) 

CM 

Cm 

q 

F79(3,  1) 

CMQ 

per  degree 

Cm<“°-Ma> 

0 

F80<3. 1) 

CMDEL 

per  degree 

Argument 

Look-Up 

Representation 

Mnemonic 

Units 

M 

V(l) 

MACH 

h 

V(2) 

H 

feet 

«o 

a 

V(3) 

ALFH 

degrees 

^  1*. 


’*1*^*7^  X-  VTT^h^a  i^TVR^r,^  y  ,rs-7-  ’■  19  ^T-.VU’V 


vT7lfv  *  ^  w» j^*  «ttcc??  «■;  -  •  ■ 


SUO ROUT INF  WAERK 
COMMON /ADAP /MODE  .AC 1000) 


DIMENSION  VSTC20) 

•FC80) 

EQUIVALENCE 

(U 

#A  C  007 ) ) »  ( V 

.A ( 008 )  )  »  ( W 

•  AC 009 ) )  . 

A 

cue 

•A(lOi) ) *(VG 

•  AC  102 ) ) » ( WG 

♦  A  ( lt'3 ) )  » 

1 

CQ 

•  AC043 ) )  » C  R 

.A (044)). 

2 

(BMBD 

*AC294)),CDELTA2 

•  AC  243 ) ) . CDELTAY 

.AC  264  ) )  * 

3 

(H 

»A(004) ) »(RH0 

•A(114)).CMACH 

.AC  005 )  )  • 

4 

(SOS 

•AC006) ) tCQBAR 

iA(070)).(L 

.AC077) ) . 

5 

CM 

»AC078)).CN 

•  At  079)). CX 

•AC071)) » 

6 

CY 

•  AC  072 » >  *  C  Z 

» A( 073) ) 

REAL  L.M.N.MACH 
IF (MODE) 100»?00*?00 
100  IF(M00F.LE.**2 )  RETURN 
PI  *3*  14x59265351)9703 
PIC-PI/180* 

PICIN-l./PIC 
BS-PI*BM80*BMBD*.25 
Q-* 0000001 
RETURN 
200  CONTINUE 
UA-U-UG 
VA-V-VG 
WA-W-WG 

VCA-SORT I VA*VA+WA*WA ) 

OELTAH-SORT ( DELTa2»DELTA2+DFLTAY»DELTAY ) 
VTA-SORT  ( VCA*VCA+'JA*UA ) 

ALFH  -ATAN2  C  VCA»UA ) 

PHI«ATAN2(VA*WA) 

CPHI-COSCPHI) 

SPHI-SINIPHIJ 
PHI2-ATAN2C— R.Q) 

CPHI2-COSIPHI2) 

SPHI2-SINIPHI2) 

QC-SORTCQ»Q  +R*R) 

ALFHD-ALFH*PICIN 
XY2-BMBD»0C*. 5/VTA 
VSTI2I-H 

CALI  FLOOKCVST .F.53.54) 

RHO-FC53) 

S0S-FC54) 

MACH- VTA/SOS 
ORAR- , 5*RH0* VT A*VT A 
VST ( 1 ) -MACH 

c  take  out 

SIGN-1* 

IFI ALFHO.LT. 0.)  SIGN— 1. 

IFCALFHD.lt. -A.)  ALFHD—A. 

VST (3 )-ABSI ALFHD) 

CALL  FLOOKCVST. F» 75*80) 

CN-SIGN»F<75) 

CMQ-FC79) 

CNDFL-$I0N»F(76> 

CMDFL-SI6N*F 1801 


Figure  22.  Subroutine  WAERK  Program  Listing 
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CM«S!GN»FC78> 

c  takf  out 

CA  -FI77) 

A(875)-CN 
AC876)*>CNOFL 
A( 877  )-CA 
A (878) -CM 
A( 8791-CMQ 
A(880)-CM0FL 
A(881 I-PHI2 
A(882)-PH! 

SUMCX--CA 

SUMCY-SPH I  * I -CN-CNOFL»DELT AH ) 

SUMC2-CPHI* ( -CN-CN^cL«DELTAH ) 

SUMCL-O* 

SUMCM-CPHI*(CM+CMOFL*DFLTAH)+CPHI2*CMO*XYZ 

SUMCN—SPH!*(CM+CMr)EL*DELTAH)-SPH12*CMO*XYZ 

GBAPS«OBAR*B  S 

GBARSr>-QBARS*BMBn 

X-QBARS*SUMCX 

Y-QBARS#SUMCY 

Z-OBARS*SUMCZ 

L-QBARSO*SUMCI. 

M-OBARSO*SUMCM 

N-QBARSD»SUMCN 

RETURN 

END 


Figure  22.  Subroutine  WAERK  Program  Listing  (concluded) 


Table  XIV.  List  of  Symbols  for  Subroutine  WAERK 


ft-lb  X  Bolling  moment  about  x-axis 


Table  XIV.  List  of  Symbols  for  Subroutine  WAERK  (continued) 


Tabl'i  XIV.  List  of  Symbols  for  Subroutine  WAERK  (concluded) 


COMPUTE  u 

THRUST  EXIT 
POSITION  VECTORS 
At  Q> 


*  3.14  .  .“^1 
»e  "  «/180  1 

«To*5°  I 

e_  *  (0.25)10‘*| 


COMPUTE  C0Ch) ' 


(TEST  ^ 

I  SET  k  - 1  I  I  SET  k  -  2 


COMPUTE 

CjOt  ,  M),  C20ip.  M) 


— — f  TEST  NTO  1  _ - 

' - rr-s 

COMPUTE  EFFECTIVE 

• 

THRUST  OUTPUT 

SET  AZIMUTH  AND 
ELEVATION  DEFEC¬ 
TION  STATES  TO 

ZERO 

''diCxth '  kB '  M) 

A 

r  *««*»*  .1 

“ad  *  °'  *«l  -  0 

(  TEST  NTD  ) 

- 

~1TO| 


[COMPUTE  AZIMUTH 
AND  ELEVATION  DEFL 
I  T ION  OUTPUT _ 


COMPUTE  ORIENTATION 
FUNCTIONS 


COMPUTE  THRUST  FORCING 
MATRIX  B-tbjIbjl- .  • 


COMPUTE  THRUST  MOMENT 
MATRIX  6  (tjl- 


TEST  MODE 


COMPUTE  TOTAL  THRUST 
FORCES  AND  MOMENTS 

fT’B%  mT*’B’'th 


Figure  23.  Subroutine  THRUSK  Flow  Diagram 
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«<**■'"*  *^^5^ 


SOB ROUT I. ME  THRUSK 
COMNON/A»AP/MOOZ*A( 1000 J 

DIMENSION  XEX«5)#YEX{5I tZEX(5)»DXEX(5)»OYeX(5>>DZEX(5).XTH(5»» 
1XA0(9>*XED(3>*YTH(3>*VAD(SI*YED{5>*YAB(5|*YEB{5)*YTB(2*5»*CTH{2*5) 
2v£l(2»9)«£2(2*9)*B(3*9)*BH(3»9) 

#**  PARAMETER  INPUTS  *•* 

EQUIVALENCE  (XEX(l)  *A(90l))*(YEX(l)  *A(306 ) ) * <ZEX« 1 )  tA(511)) 

1  *(XCG  *A(411>I»<ZCG  »A(612) )  •  ( ANTD  *A(916>) 

2  *  (AMEX  *A(917M*(YTB(l*l)»A(Sl8)>»(CTH(l*l>rA(528)i 

9  • (El I 1*1) *A(338I I *(E2 ( 1*1 ) *A(548 ) ) » (EO  *A<558)> 

4  * (YAB(1 1 *A(982) I  * ( YEB( U  *A(3S7) ) 


***  VARIABLE  IMPUTS  *** 

EQUIVALENCE  (H  *A(004> I *(MACH  »A(005) *«(XTH(1) 

i  *  (XAD(  1 )  »  A ( 964 )  1 1  ( XEO ( 1 )  *A(569)) 


•••  VARIABLE  OUTPUTS  ••• 

EQUIVALENCE  (XT  »A(lll))f(2T 

1  »(LT  »A(400})*(MT 

2  »(YTH(l)tA(974!l 
REAL  LT*MT*NT  #MACH 

IF (MODE) 100 #2 00 *3 00 
100  IF(M0DE«LE.*2)  RETURN 
PI*3* 141392633389793 
PIC*PI/180* 

XT0*50* 

EO  **000029 
NTD*ANTO 
NEXaANEX 
RETURN 

200  DO  210  J*1*NEX 

DXEX(J»*(XCG4XEX(JH/S2. 

DYEX(J|*1YEX(J»I/12# 

210  D2EX(J)*(2CG4ltX(J))/12. 
A(092)*DXEX( 1 ) 

A(099)«D2EX(1) 

IF(NTD.NE.O)  RETURN 
DO  220  J«1**EX 
XAD(JI*0« 

220  XED(J)*0. 

GOTO  1000 
300  C0*1.+E0*H 

00  310  J*i*NEX 
IF(XTM(JI*»XTO  1302*303*303 

302  KP*1 
GOTO  304 

303  KP-2 

304  C1*1*9E1(KP»J|«MACH 
C2*1*4€2(KP* J)*MACM 


♦AU12>»*(YT 

*A(601))*(NT 


>A(55<?H 


•  A( 11 s )  * 
»A(60J) ) 


Figure  24.  Subroutine  THRUSK  Program  Listing 


-1’¥*^>;<rv/?>l5UX  JA.  ™"?7jy  .**  «■  »7v;5r  7^7  «rp75«r»  YV~'  '•. 


310 


1000 


YTH(  J)«C0#<C1*YTU(KP.J**C2«^.  •i(KP»J>«(XTH(J»-XT0> ) 
YTN(l)  *  A(  141 ) 

YTH<2)  -  A(  142 ) 

IF(NTD.EQ.O)  GOTO  2  Of 
00  1010  J*1  *AiT  X 
YAO  C  J 1 *Y  AR ( J 1 4XA0 ( J ) 

YED«J)»VE(9(J)+XE0<  J) 

RAO»YADtJ)*PIC 
RFt'«YFD<  J)*PIC 
CYAD-COSIRAO) 

SYAi'-SlN(RAn) 

CYE!-.  COS (RED) 

SYF  •»  •*  1 M  ( Rf.  '>  1 
Bi '  .!  i  jCYAO»CvEU 

B ( SYA2 

1010  BIS  ,  '  CYA^iSYt.' 

DO  iO  ■  J«1  -'-'X 


1020 


RETURN 


RH()i  >«OYEX< J. ” 
BH(2*Ji  ’>DZEX(J  '' 
BH(?tJ)«OXEX< J  - 
A(593)*-8(l.l) 
A(594).b<3«l) 
A(595)«SH|2»1> 

A<SP6)  ■  8(1*2) 

A( 597 )  ■  B( 3 *2 ) 

A(  598 1  *  BH*  2  »? ' 

YTH ( 1 )*A( 141 1 
YTN ( 2 ) -A ( 14? ) 
lF(MODF.EO.O) 

2000  XT-o. 

YT-O. 

ZT«0. 

LT-O. 

MT-O* 

NT«0. 

DO  2010  J-l.NEX 
XT«XT+B(1,J)*YTH( J) 
YT«YT+B(2,J)»YTH(J) 
ZT»ZT+B( 3* J  >*YTH( J) 
LT  »LT  +BH ( 1 » J ) *YTH ( J ) 
MT-MT+BH ( 2 • J ) »YTH( J ) 
2010  NT»MT+BH(3»J)*YTH( J) 
RETURN 
FND 


:i  )  ’ .  )-DZEX(J)*B{9.J> 
G.„  .J)-'DXh'X(J)*B(-9»J) 
>  .♦j)-OYEX(j;«n(i*j) 


Figure  24.  Subroutine  THRUSK  Program  Listing  (concluded) 
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f  Symbols  for  Subroutine  THRUSK 


*  -*v  mwj 


Table  XV.  List  of  Symbols  for  Subroutine  THRUSK  (continued) 


Subroutine  WINDK 


Subroutine  WINDK  implements  the  model  developed  in  Section  IV  of 
Volume  I.  It  generates  the  mean-wind  and  the  wind-gust  velocities  along  the 
aircraft  and  weapon  body  axes. 

The  subroutine  WINDK  flow  diagram  is  shown  in  Figure  25  a  J  the  pro¬ 
gram  listing  in  Figure  26.  Symbols  are  listed  in  Table XVI. 


Subroutine  SENK 


Subroutine  SENK  implements  the  model  developed  in  Section  V  of  Vol¬ 
ume  I.  It  generates  the  sensed-output  signals  at  various  points  on  the  air¬ 
craft  in  terms  of  aircraft  states  and  their  derivatives. 

The  subroutine  SENK  flow  diagram  is  shown  in  Figure  27  and  the  pro¬ 
gram  listing  in  Figure  28. 


Subroutine  PILOT 

Subroutine  PILOT  implements  the  model  developed  in  Section  VII  of 
Volume  I.  It  generates  the  stabilator  (i.  e. ,  elevator)  signal  to  keep  the  air¬ 
craft  along  a  dive  and/or  pull-up  path. 

The  subroutine  PILOT  flow  diagram  is  shown  in  Figure  29  and  the  pro¬ 
gram  listing  in  Figure  30. 


Subroutine  NOMK 

Subroutine  NOMK  is  assigned  to  generate  the  nominal  (trim)  parameters 
by  algebraic  approach  developed  in  Section  VO  of  Volume  I.  It  has  not  been 
programmed  in  this  work  (trimming  is  done  by  PILOT).  This  subroutine 
when  programmed  should  provide  more  accurate  values  for  the  nominal  tra¬ 
jectory  and  the  trim  profile.  The  subroutine  NOMK  flow  diagram  is  shown 
in  Figure  31. 


Subroutine  RELK 


Subroutine  RELK  generates  the  nominal  release  time  of  the  weapon  for 
the  dive  and  pull-up  maneuver  as  described  in  Appendix  II  of  Volume  I. 
Since  the  weapon  release  model  depends  heavily  on  the  fire  control  system 
used  in  the  aircraft,  it  must  be  written  separately  by  the  user.  The  sub¬ 
routine  RELK  flow  diagram  is  shown  in  Figure  32. 
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Ms 


Figure  25.  Subroutine  WINDK  Flow  Diagram 


SUBROUTINE  WINDK(FW.GW.HW) 
COMMOH/ADAP / MODE • A ( 1 000 ) 

DIMENSION  FW( 8.8 ) »GW( 8  *4 ) »MW(6»8) 


EQUIVALENCE  (U 


EQUIVALENCE 


(PSIB 

(HNAUT 

(E21 

(F2? 

(E23 

(BMBD 

(UB 

(UBA 


»A(007)).(V  .A(008)).l 
•A(290J»*<THETA0»A(?91))#I 
»Ai 292) 1 • (VBNAUT »A( 293 )  >  ♦  I 


•A(055))*(E31 
»A(038 ) ) > (E32 
•  A(061 1 1 »(E33 
•A (294) ) 
tA(295) ) »(V8 
*A(298 ) ) » (VBA 


(VBARA  *A(301))»(SI6U 


3  (S)GW  »A*304) ) » (AU 

4  (AW  .A(307))*(AP 

3  (AR  «A(310)).(VELBtA 

REAL  l-W.LU.LV 
I F ( MODE ) 100  *200*200 

100  IFIM0DE.LE.-2)  RFTURN 
PI-3.14159265 

LWR-9 

DO  101  1-1.8 
DO  102  J-1.8 

102  FW(I»J)>0. 

DO  103  J-1.4 

103  6,.'»(I»J)-0. 

D  '  101  J-1.6 

101  HW(J*I)-0. 

EX3-1./3. 

RETURN 

200  IF(A(998).FO.O.)  GOTO  204 
BB-B 
GOTO  205 

204  BB-«MBD 

205  HR-H/HNAUT 

VELB- VBNAUT* ( HR )**.25 
CPB-COS(PSIB) 

SPB-SIN(PSIB) 

CTB-COS(THETAB) 

STB-SIN(THETAB) 

Cl-CTB*CPB*VELn 

C2-CTR*SPB*VEL0 

C3— STB*VELB 

UB-F11*C1+E12*C2+F13*C? 

VB-F21«C1+F22*C2+F23*C3 

WB-F31*C1+E32«C2+F33*C3 

UDA-U— UB 

VBA-V-VB 

WBA-W-WB 

VBARA-SQRT ( UBA«UBA+VB A*VRA+WBA*WBA ) 
HL-H 

IF(H.GE.1730. )  GOTO  201 
IF(H.GE.100.)  GOTO  210 
HL-100. 


«A(310)).(VELB.A(288)) 


*A(056) ) » ( 
•A(059))*< 
*A(062))*I 

»A(?96) ) .1 
»A(299)).l 
»A(302))t 
»A(305>). 
»A( 308 ) ) » 


(WR 

(WBA 

(SIGV 

(AV 

(AQ 


*A(009) )  . 
.A ( 004 ) )  . 
»A( 054 ) ) » 
.A ( 057 ) )  » 
*A( 060) )  * 

•  A( 115 ) )  * 

»A(297))» 
»A( 300) ) . 

. A( 303) ) . 
*A( 306) ) . 
*A(3o9) ) • 


Figure  26.  Subroutine  WINDK  Program  Listing 
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210  LW-HL 

LU»14«5.*<HL»*#FX3 

IV«LU 

GOTO  202 

201  HU  1750 
LW«HL 
LU»HL 

lv«hl 

202  CONTINUE 

SIGW»10«25~l*25*ALOG10(HL) 

SIGU«$QRT!LU/LW)*S!GW 

SIGV»SORTCLV/LW>*S!GW 

AU-VBARA/LU 

AV-VBARA/LV 

AW«VRARA/LW 

AP«VBARA*P|/CBR*4.) 

ao«ap 

AR»VBARA*PI/(BB#3.) 

BU«SIGU*SQRT ! 2.*AU/P| ) 

B2V.SIGV#SORT!AV»3./PJ) 

B1V«AV#B2V/$QRT<3.) 

A1V*AV#AV 

A2V-2.*AV 

B2 W«S 1 GW#SQR  T  <  AW*3 . /P I ) 
B1U-AW#B2W/SQRT(3. > 

A1WbAW»AW 

A2W«2o*AW 

XY2. ( PI«LW/ ! BB*4» ) ) ««FX3 

XYZbSORT ( »8*XYZ )*AP 

BP*SIGW«SQRT<  l./!LW*vBARA)  >*XY7. 

f)0«A0/VBARA 

no«An«oQ 

OR—AR/VBARA 

gr*ar*or 

FW(1,D— AU 

FW(2»?|b-A2V 

FW12»4J»1. 

FW(3»31»-A2H 

FW(3»5)*1. 

FW(4.2J—A1V 
FW(5»3)«-A1W 
FWI6*6)«-AP 
FW! 7*7)«—AQ 
FW! B*8)»-AR 
FW! 7»3)»BQ 
FW(fl,2)-BR 
GW! 

GV(2»2)«B2V 
GW I 3»3)>B?W 
GW!4*?)«BJV 
GW! 5*3)*B1W 
GW! 6 *4) “BP 
HW(4»3)«0Q 
HW(A,2)-DR 


HWl 2»? )*1« 

HWC3*3)-1. 

HW(4»6)»l. 

HW15*7)»1. 

HW(A,8J»1, 

302  FORMAT!//) 

WRI TElLWRt300 |A( 1 ) 

300  FORMAT! 1H1/7X »6H  TJMF-F12.3/) 
WRITE(LWR»30l) 

301  FORMAT! /18H  MATRICES  FW*GW.HW//) 
CALL  MP!8*B»8»8*FW»LWR) 
WRITE!LWR»302) 

CALL  HP!8*4»8»4*GW*LWR) 

WRITE 'LWR, 302) 

CALL  MP!6*8*6»e*HW«.LWR) 

PETURN 

FND 


Figure  26.  Subroutine  WINDK  Program  Listing  (concluded) 
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Symbols  for  Subroutine  WINDK 


Table  XVI.  List  of  Symbols  for  Subroutine  WINDK  (continued) 

Quantity  I  Mnemonic  I  ^  -Array  I  I  T  ,  I  _  i 

_  I _  I  Index  I  Units  I  Input  I  Output  I  Descr 


Symbols  for  Subroutine  WINDK  (continued) 


Table  XVI.  List  of  Symbols  for  Subroutine  WINDK  (concluded) 


:fy  w ■'H-'rTf ^  7"  -  f  ”n  '^w  'i  '"**9*. ?* 


I  emeu  1 

(TEST UIOOE') 

r 


a 


COMPUTE 

R1  •  CW0t2)XORA) 

■ 

HEWHJTE  - 

|  R1-R1+«WX2)XX1) 

COMPUTE 

R2  •  (Wa2)»RA 

X 

6!^W+(WO<2»R2 

COMPUTE 

YXSO  *  (EAXR1) 

COMPUTE 

Y2SO  » (E0MEGDXX2D) 

COMPUTE 

R1  ■  <W0(2)X0RV) 

COMPUTE 

Y1S*  (EVXRX) 

COMPUTE 

Y2S  *  (EOMEGXX2) 

COMPUTE 

Y3S  •  (EC0MEGXX3) 

COMPUTE 

R1  ■  *<0RR)  -  (EKX4) 


COMPUTE 

XVZ  •a(R1(1)]z+{R1(2))Z 


X 


COMPUTE 
YRPS(X)  •  /o(YZ)2+<RX<3»2 
YRPSC2)*  ATAN<R1(2)/R1(1) 
YRSP<3)  *  ATAN(R1(3)/XY2) 


COMPUTE 

STHR  •  SIN<YPRS<3» 
CTHR  -  COS(YPRS(3» 
SPSIR  *  SIMYPRS(2)> 
CPSIR  •  COS(YPRS(2» 


YRUStl)*  -R2(l) 

YRUS(2)  *  -R2(2)/YRPS(1) 
YRUS<3)*  R2(3)/YRPS(1) 


j  REUIRW  | 


Figure  27.  Subroutine  SENK  Flow  Diagram 
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SUBROUTINE  SENK 
C0MM0N/ADAP/M0DE*A4 1000) 

DIMENSION  EA4  3*3) »EV4  3*3) »ECOME64  3*3 »  .EOMEG 
1)*DRV43)»DRR<3>»Y1S43>»Y2S43>»Y3S43> *Y1SD<3 
23)*X143)*X243)*X343)*X443)*X1D43)*X2D<3)*R1 
3) 

EQU I VALENCE  4  EA4 1  * 1 ) * A  4  39 1 )) » 4  E V( l . I ) . A  4  400 

1  ( E0MEG4 1 » 1 ) ♦ A ( 427 ) ) * ( kOMEGD  41*1 

2  4DRA41)*A«436)).4DRV41)»A4439)) 

3  (YIS(1)*AI311)>*IY2SI1).AC314|) 

4  (Y1S0(1)*A(320))*(Y2SD<1)»A(323 

5  (YRVS4l)»A4329))*4X141) .A4O07) ) 

6  4X341)*A4031)I*4X441)»A4002))*< 

7  4  X2D( 1 ) »A<  045 ))*4£41*1) » A4  054) ) 
IF (MODE) 100. 300*300 

100  RETURN 
300  CONTINUE 


43*3) .E0MEGD4 3*3) *ORA43 
) .Y2SD4  3) *YRPS4  3) »YRV$4 
43)*R243)»E43.3)»ER43*3 

) ) *  4  ECOMEG4 1*1 1 *A4409) ) 
) t A4  418) ) * 

•  4DRR4 1 ) *A4  442 ) ) * 

*4 Y3S41) *A4317) ) ♦ 

) )  1 4  YRPS4 1 ) *A  4  326 ) )  » 
*4X241) »A( 042  ) )  * 

X1D4 1) *A4017) ) » 


COMPUTE  YlSDOT 

R141)«X1041)+4-X2D43)«DRA42)+X2D(2)*DRA43) ) 
R1<2)»X1D42K4  X204 3)*DRA4 1 J-X2D4 1 )*DRA43 ) ) 
Rl43)«X1043)+4-X2042i»DRA4l)+X2D4l)*DRA42)) 
R1 4 1 )*R1 4l)  +  4— X243)*X1 4  ? )4X242)*X143 ) ) 

R1 4 2)»R1 42)  +  4  X243)*X1 4 1)-X241)*X1 43 ) ) 
Rl<3)-Rl(3)+4-XZ42)»Xl(l)4X24l)*Xl42) ) 
R24l)«4-X2<3)*DRA42)4X242)*ORA43)) 

R242)*4  X243)*DRA41I-X241)*DRA43)) 
R243)«4-X242)*0RA4I)+X241)*DRA42) ) 
RHl)«R14l)  +  4-X24  3)«R2(2)+X242)*R243) ) 

Rl4  2)»Rl(2)  +  4  X243l*R2(i:*X2(l)*R243) ) 

Rl4  3)-Rl(3)  +  4-X24  2)»R24  1)+X241)*R-’42)) 

DO  1  1*1 *3 
Y1SD4 I )*0# 

DO  1  J*1 *3 

1  Y1SD4 I )*Y1SD( I )+EA4 I »J)*Rl 4 J) 

COMPUTE  Y2SD07 

DO  2  1*1*3 
Y2SD4I)*0. 

DO  2  J*1 *3 

2  Y2SD4I)-Y2SDU)+EOMEGD4 1»J)«X2D4J) 

COMPUTE  Y1S 

R141)*X141)  +  4  — X24  3)*DRV  4  2)4X2(2 )*DRV( 3 ) ) 

R1 4 2)*X1 42)4 4  X243)*DRV41)-X2  41)*ORV<3)) 

R1 43 )*X143)44-X24 ?|*0RV4 1)4X241 )*DRV4 2)) 

DO  3  1*1*3 
Y1S4I)*0. 
no  3  J*i*3 

3  Y1S(I)*Y1S4I )4EV( I »J)*R) ( J) 


Figure  28.  Subroutine  SBNK  Program  Listing 
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COMPUTE  Y2S 

00  4  1*1*3 

Y2SCD-0. 

00  4  J*1  *3 

4  Y2$m«Y2Sm+eOMEGtI»J)«X?<J> 

COMPUTE  Y3S 

DO  3  1-1 »S 
V3S|H»0, 

00  3  J-l*3 

3  Y3SI I )»Y3S( 1 1 ♦ECOMFG f  I • J I *X 3 f J ) 

COMPUTE  YRPS 

00  6  2*1*3 
R1III--0RRUI 
00  6  J*l*3 

6  Rim«Rim-E(!tJ)*X4<J) 

XYZ»S0RT  fRlfl)«Rltl)+Rlf2)*Rl(2)) 

YRPSf 1 I •SORT  C  XYZ*XYZ+R1 f  3 ) »R1 ( 3  > ) 
YRPSf2>*ATAN2fRlf21*RHl)f 
YRPS(3)*ATAN2fRl(3) tXYZ) 

$THR*SINfYRPS(3) ) 

CTHR*C0SfYRPSC3t) 

5PS|R*SINf YRPSf2l J 
CPSIR*C0StYRPSt2)) 

COMPUTE  YRVS 

ERfl*lt»CTHR*CPS|R 
ERf 1»2)*CTHR*SPSIR 
ERfl*3)*-STHR 
FRf?.l»*-SP5!R 
ERf2*2»*CP$IR 
ERf  2*3)*0« 

ERf3*l)*STMR*CPS!R 

ERf3*2)*STHR*SP6|R 

ERf3*3»*CTHR 

Rif  1  )*XHll+f«*X21 3)*0RRf2  J*X2f  2l*0RRf 3) ) 
Rif 2)«XH2)+f  X2f3>«0RRfll-X2fi»»DRRf3>) 
Rl<3J«XH3M-»-X2f2**ORR(l>«-X2f!>*DRRf2)> 
00  8  1*1*3 
R2t 1 )*0* 

DO  8  J*1 *3 

8  R2f!»*R2(n+ER(I.J)«Rlt J) 

YRVSflJ*-R2fl> 

YRVSf  2 1 *-R2 f  2 1 /YRPS  f 1 ) 

YRVSf31*R2f 3) /YRPSf 1 ) 

RETURN 

END 


Figure  28.  Subroutine  SENK  Program  Listing  (concluded) 


ENTER  1 

IP 

>■  0  J 


TEST 

AU55) 


COMPUTE  STABILATOR  INCREMENT] 

AW  K>^0->(tk>! 

+  K,V'V 

♦  ko  ^  \n _ 


900  CONTINUE 

I 


C  TEST  lr  "\VES 
V  RN  >0  r 

ZZZZZ 

f  TEST  IF  AYE^ 

Lh  .Ji 


SET  RN*  1.0 
AB$  *  A#S1 


T 

|  919  CONTINUE  H - ' 

izxzr 

EI|Z3 

(return  | 


Figure  29.  Subroutine  PILOT  Flow  Diagram 


SUBROUTINE  PI  LOT  CRN] 

COMMON /ADAP t MODE » A 1 1000 ) 

IFC AClS5)tEQ.O.)  GOTO  9Q0 
AC 1?2)«AC2595#CA<  260I-AC028 ) ) 
AC12?)«A(122)+A(?5fi)*A(03A) 

AC 1??I«AC12?)+AC?57»*CAJ?70>“AC041) ) 
ACl??)»ACl??)4'A(?5fi)*AC0AA) 

900  CONTINUE 

IFCRN.GT^O.)  GOTO  919 

IF  C  AC  OOA  >»GT • A ( 156 ) )  GOTO  91V 

RN«1. 

AC122)-AC157) 

919  CONTINUE 

AC1?1)»AC121}+AC12?) 

RETURN 

END 


j 

\ 
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i 

i 
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Figure  30,  Subroutine  PILOT  Program  Listing 
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Subroutine  LINK 

Subroutine  LINK  implements  the  analyf  is  developed  in  Section  VI  of 
Volume  I.  It  generates  the  linearized  equations  of  motion  of  the  aircraft  for 
six  degrees  of  freedom.  It  develops  the  time -varying  linear  wind  filter 
coefficients  by  calling  subroutine  WINDK  at  the  linearization  time  points. 

It  outputs  the  linear  data  for  equations  of  motion,  wind  filters,  and  the 
linearized  measurement  matrix  in  the  printed  form.  It  also  stores  these 
data  in  a  permanent  disc  file.  The  subroutine  LINK  flow  diagram  is  shown 
in  Figure  33  and  the  program  listing  in  Figure  34.  Symbols  are  listed  in 
Table  XVH. 


Subroutine  SLINK 

Subroutine  SLINK  generates  the  linear  measurement  matrix  usin  ;  the 
nonlinear  output  from  subroutine  SENK.  Its  programming  logic  is  the  same 
as  subroutine  LINK. 

The  subroutine  SLINK  flow  diagram  is  shown  in  Figure  35  and  the  pro¬ 
gram  listing  in  Figure  36. 


Subroutine  WLINK 

Subroutine  WLINK  generates  the  linear  data  for  the  weapon.  Its  program 
logic  is  the  same  as  subroutine  LINK.  The  linear  data  is  output  in  print 
form.  The  data  are  also  stored  in  a  separate  permanent  disc  file.  The  sub¬ 
routine  WLINK  program  listing  is  shown  in  Figure  37. 


ADAP  1  AUXILIARY  SUBROUTINES 
Subroutine  EXEK 

Subroutine  EXEK  handles  the  card  input  for  ADAP  1  plus  the  following 
bookkeeping  functions: 

•  Keeps  track  of  simulation  time. 

•  Determines  integration  step  size  with  parameters  supplied 
by  the  user. 

•  Prints  all  data  input  cards  for  one  run. 

•  Dumps  the  A -array  contents  at  the  specified  time  points, 
e  Stops  the  simulation. 

Subroutine  EXEK  makes  use  of  the  subroutines  PRINT,  PREAD,  and 
FLOOK.  Its  flow  diagram  is  shown  in  Figure  38  and  its  program  listing  in 
Figure  39. 
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INITIALIZE 
WINOK,  SUNK 


COMPUTE  NOMINAL 
DERIVATIVE* 


(3.  Subroutine  LINK  Flow  Diagram 
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1 


■•Too  100  J  -  1,  NX 


SETA-ARRAY  INDEX  OF 

STATE 

JJ  •  JJXO) 


SET 

mm 

SIGN  -  (-lXSIGfl) 

_J 

SET  PERTURBATION 
PERT  -  (SIGNXDXCD) 


COMPUTE  PERTURBED 
STATE 

isx.  *paT 


a 


COMPUTE  NEW  A 

ZZ 


TMD 


RESTORE  x  TO  NOMINAL  I 

—  TT - 


1504 1 

STORE X  AND  1 

RESTOREMO  NOMINAL 


< 


GO  TO  10 


3 


COMPUTE 

Fj*'**l,/2AX(j) 


Tsa 


TEST 


IF  lFll  <s  > ^ 

|wo  ,  * 


lSETV°  1 


[  CONTINUE  POO  1 

l _ r 

^  ! 

[ 

■ 

iaTrr  SnHFy** 

1 

C  TEST  IF  NU  >  0 
AYES 

-»j  DO  200  J  -  1.  NU  | 


SET  A  ARRAY  INDEX  FOR 

CONTROL 

JJ  -  IIIKJ) 


SET 

|IU'i 

SIGN -(>1)  (SIGN) 

_ 

SET  PERTURBATION 
PERT  •  (SIGNXDU(J)l 


x 


COMPUTE  PERTURBED 
CONTROL 
u • u  ♦  PERT 

ITT 


COMPUTE  NEW  x 

T 


7"!is3 


RESTORE  u  TO  NOMINAL  I 
- 


1 505 1 

STORE  *  AND 
RESTORE  A  TO  NOMINAL 


c 


x 


TEST  SIGN 


< 


GO  TO  110 


3 


(  TEST  IF 


M 


|SCTC* -0  ( 


CONTINUE 

t 


UppJ 


WRITE  G1 


Figure  33.  Subroutine  LINK  Flow  Diagram  (continued) 
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Figure  33.  Subroutine  LINK  Flow  Diagram  (concluded) 
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SUBROUTINE  LINK 
COMMON/ADAP/MODE.AI 1000) 

COMMON  !IX(12>»IIU(6)*IIW(6)*ItXD(l2) 

COMMON  XDOTI 12)*XD0Tl ()2)*F(12*12)  *G1 1 12»ti)  *02  (  1?*6) 

COMMON  E(9)*XS<12)»XDOTN(l?) 

DIMFNSION  DX 1 12 ) *DU ( 8 ) »DW 1 6 ) »A I<*0 ) 

DIMENSION  FF< 20*20) *661 (20»8>*GG2< 20*6) *GG3 1 20*4) *H2< 21* 12 )*VW<3) 
0IMFNSI0N  FW( 8*6) »GW(6*4) *HW<6*8)*H2D(?1»6) *FM( 21*16) 

«•••  PARAMETER  INPUTS  **** 

EQUIVALENCE  (0X(1)  «A(201 ) ) t (DU( 1 ) »A(221 ) ) » (l)W( 1 )  *A(231))* 

1  (ANX  *A( 170) ) t (ANU  »A(t71) ) »(ANW  *A(1?2>)* 

2  (At(l)  »A(901) ) 

IF(MODF) 1*2*2 

1  IFCMODF.LE.-2)  RFTURN 
SIGN-1. 

SET  INDEX  ARRAYS 

NX-ANX 
NU-ANU 
NW-ANW 
LW-9 
I TAPE-7 
DO  500  1-1 *NX 
iixm  -Aim 
II-I4NX 

500  I IX0( I )-AI (II) 

ID-7-NX+1 

IE-IB+NU-1 

DO  501  I-lfl* IE 
J-I—?*NX 

501  IlU(J)-AHI) 

IB-IF+1 

IE-IB+NW-1 

DO  50?  I-IB»IF 
J»I-2*NX-NU 

502  IIWIJ)bA!M) 

CALL  WINDKCFW*GW*HW) 

CALL  SLINK(FM) 

RETURN 

PARTIALS  W.R.T.  STA'F 

2  CONTINUE 
LIN-1 

SAVE  E 

DO  902  I-1*NX 
II-IIXD(l) 

902  XS(I)-AIII) 

DO  900  1-1*9 
JK-5S+I 

900  E(I)-AIJK) 


Figure  34.  Subroutine  LINK  Program  Listing 
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DO  2001  I«l*12 
HO  2002  >1*6 
2002  G2( t »J)*0« 

no  2009  >1*8 

2009  Gl(t»J)«0« 

no  2001  >1*12 

2001  FI  I »J)«0» 

no  2009  l«l*20 
DO  2006  >1*8 

2006  GG1U»J)»0. 
no  2007  J»l»6 

2007  r,R2(I*J)*0. 
no  2006  J»l»4 

?008  RG3 ( t *J>»0. 

DO  2009  >1*20 
2005  FFI 1 * J)»0* 

DO  2010  l»l*21 
DO  2011  >1*12 

2011  H2 ( t  * J>»0# 

DO  2012  J>1*6 

2012  H2D(I.J)«0. 

''O  2010  >1*18 

2010  FM<I,J|«0. 

r>0  2016  1«1*3 
2015  */’•'(  T  )*0* 

CALL  AERK 
CALL  DYNK(LIN) 

DO  980  I*1»NX 
II-IIXDU) 

980  XDOTNI I ) “A (II) 

DO  100  JM.NX 

10  SIGM»-1.*SIGN 
PFRT*  ,!GN*DX I  J) 

Al JJ)»A( JJI+PFRT 
001  CALL  AERK 

CALL  PYNKILIN J 
A( JJ) *A( JJI-PFRT 
DO  504  I»t*HX 
II-IIXDU) 

xootm»A<m 

50A  A(in»XDOTNlI) 

IF( SIGN) 20*20*40 
20- DO  SO  I-1»NX 

30  xnoTim-xDorm 
GOTO  10 

40  no  100  I *1»NX 

F<I,J)«(XOOT(I)-XDOTim)/(2.*DX(J)) 
IF! ARSIF ( I •  J  1  )  »LT. « 1E“6 )  F(I*J)«0, 
100  CONTINUF 

WRITFCLW.700) 

CALL  MP(12.12*NX»NX*F.LW) 

700  F0RMATUH1/7X.10H  F  MATRIX  //) 
IF(NU>201. 201*105 


Figure  34.  Subroutine  LINK  Program  Listing  (continued) 
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Figure  34, 


C  PARTIALS  W*R*T*  STATF  I 

105  DO  200  J*l*Nli  ! 

JJ-IIU(J)  | 

110  SIGN*-i**SI6N  j 

PERT-Sl GN»OU(J>  i 

A(  JJ)*i.(  JJ)+PFRT  j 

P04  CALL  AFRK 

CALL  DYNK(LIN)  i 

A(JJ)*A( JJ)-PERT 

DO  505  I*1*NX  | 

ii-nxDU)  i 

X00T(I)«A(II) 

505  A(1I)-XD0TN(I) 

IF {SIGN) 120 *120*140 
120  DO  150  I*1»NX 

130  XD0T1(1)*XD0T(I)  , 

GOTO  110  ! 

140  DO  200  I*1*NX 

OKI  *J)*(XDOT  ( I  J-XDOTl  ( 1 )  )/(2.*DU( J) ) 
IF(ABS(G1(I*J))oLT..1E-6>  Gin*.))*©* 

200  CONTINUE 
WRITE(LW*701 ) 

701  FORMAT ( 1H1/7X » 10H  61  MATRIX//) 

CALL  MP( 12*8  *NX*NU»Gl »LW) 

201  IF (MW) 301 *30 1*205 

C  PARTIALS  W.R.T*  DISTURBANCE  PARAMFTERS 
205  DO  300  J*1*NW 

jj-iiw(J) 

210  SIGN*— 1 ••SIGN 
PERT«SIGN*OWI J) 

A(JJ)«A(JJ)4PFRT 
f  07  CALL  AERK 

CALL  DYNX(LIN) 

A( JJ)»A( JJl-PERT 
DO  906  I -l. NX 
11*11X0(1) 

XnOT(I)*A(II) 

506  A(II)*XOOTN(I) 

IF*  MGN 1220*  220*740 
220  DO  230  I*1*NX 
230  XD0T1 ( I ) *XDOT ( I ) 

GOTO  210 

240  n0  300  1*1. NX 

G2( I »J)*(XOOT ( I l-XOOTl ( I ) )/(2**DW(J) ) 

IF( ABS(G2( I*J) )*LT**lE-6)  G2(I.J>*0* 

300  CONTINUE 

WRI  TE(LW»702  *< 

702  FORMAT (1H1/7X*10H  G2  MATRIX//) 

CALL  MP(12t6*NX»NW«G7»LW) 

301  CONTINUE 
C 

C 

C  PFSTORF  F 

c  : 


Subroutine  UNK  Program  Listing  (continued) 
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DO  901  1*1*9 
JK-33+1 

901  A«  J*C»-F«  I » 

DO  903  I-l.NX 

n-itxom 

903  AM!I«X5MI 

CALL  WINDK{FW.GW*HW> 
DO  3001  1*1*12 
DO  3002  J*l*12 

3002  FF(  I  * J)*F( I  * J I 
DO  3001  J*l»6 

3001  GG2(I*J>*G2<1*J) 

DO  3003  1*1*8 
11*1+12 
DO  3003  J*l*8 
JJ*J+12 

3003  FF(!1*JJ)*FWU*J) 

DO  3004  1*1*8 


11*1+12 
DO  3004  J»1 *4 
3004  GG3(II*JI«GVM  I*J) 


DO  3003  1*1*12 
DO  3003  J*l*8 
3003  GG1 ( I »J)*G1( I ♦ J) 

DO  3006  1*1*12 
DO  3006  J*l*8 
JJ*J+12 

DO  3006  K*1 *NW 

3006  FF( 1 » JJ)*FF( 1 *JJ)+G2 ( I *K)*HW(K. J) 
CALL  SLINK (PM) 

DO  3007  1*1.21 
DO  3008  J*l*l? 

3008  H?( I » J)*FM( I » J) 

DO  3007  J*1 *6 
JJ* J+17 

3007  H2D(I*J)*FH(1.JJ) 

VW(1)*A<298) 

VW(?)*A' '79) 

VW?3)*Al300) 


C 


WRITE<  ON  DISK 

WRITF(ITAPE)FF 


VJRI TF  ( I  TAPE )  GG1 


WRITF(ITAPF)GG? 
WRITF(ITAPF)GG3 
WR I TE ( 1 T APF ) H2 
C  WR1TFUTAPF)H2D 

'.miTFCTAPElVW 
RETURN 
END 


Figure  34.  Subroutine  LINK  Program  Listing  (concluded) 
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Table  XVII.  List  of  Symbols  for  Subroutine  LINK 


83 

•2  -g 

+£  ®  <D 

•£ 

3  g  2 

H  0«ri 
4)  T+  ^ 
«  1 1 
Ph  at  a 


c  XX*  K  K  K  K  X5XX;  XXKKKKjx’j*!!*! 


M  M  60  6)0  M 

a>  v  o  v  v 

T3  tj  *o  *0*0 


75  'S  w  w  w 

55  000  000®®® 

£  ®  a>  a>  a>  v  v  a>  ®  ®  ® 

®®  ana  a  a  a  ^  ^  ^  ^ 

a  v  ..  4.  ^  4?  a)  as  ca  at  ca  at 

n.  CL  «4«4«4  CCChhbhLh 


£  «  SS*0^00  »-»NCO  rtN0Q^U5(O0»(O(J! 

S  S  S  N  N  N  N  N  CO  CO  CO  OOOOOOOOO 

N  CM  CO  CM  CM  CM  CM  CM  CM  CM  CM  CMCMCMCMCMCMCMCMCM 


-J-*  »?*  JS13  _5°  _5°  t*  00  •  *”*  fcP*  »co  HAin«iniot>(oa 

■ggggSggg  ,1  I  J  £  // 


Table  XVII.  List  of  Symbols  for  Subroutine  LINK  (continued) 


S  s  s  g  ® 

2  «*  x  £  x  O  'O 

co  <o  as  co  A  . 

SfS&f 2  | 

jtijtjl  I  1 

3s3.s3s|a 


K  X!  K 


--I  CM  O 
t-  c-  t- 


U  U  Xi 

5  2  5  s> 
III  t 

3  9*  3  o 

fc-S  g  ft 


X.  M  - 

<  c  <  & 

P £  *  W 


oo 

*o  o  J 


X!  X!  X! 


te  t»  bo 
tt)  o  <i> 
ti  x)  t 


co  rt  ID 
CM  CM  CM 


55  ^  ~ 

O  ^  £J 

53  P  p 


p  p 


.'HUH 


Table  XVII.  List  of  Symbols  for  Subroutine  LINK  (continued) 


& 


Q)  O  '  ** 

x  >,  s  .3  .>  •£  .a  .cr  .u  .cm 


<D  <D  <D 
•  X  •>»  »M 


xxxxxxxxxxxxxxxxxx 


•0-0-0 
03  CO  m 


non 


CM 

o 

'J 

cm 

o 

4) 

CV3 

G 

0) 

so 

CM 

G 

V 

DO 

CM 

8 

m 

O 

V 

n 

o 

V 

DO 

o 

0) 

00 

o 

0) 

CQ 

a 

'O 

t? 

'O 

t> 

tT 

•a 

CQ 

CIS 

ciS 

as 

as 

CIS 

cil 

a 

a 

fa 

fa 

fa 

fa 

fa 

fa 

a 

00 

03 

lO 

CO 

c- 

05 

o 

rH 

CO 

-■>  O  H  N 

r-cNco^incDt>ooa)— 

CS?^®~”OOgOOQOQOQQQ 

£.SS£^:2PPPPPPPPPPPP 

XXXXXXXXXXXXXXXXXX 


©  r-i  CM  O  H  w 

t-OOOlr-tlH^i-tCQCO^lOCOC-COpjr-li-lrH 

X  X  X  X  X  X  .X  .x  .X  .x  .X  .X  .x  .x  *X  .x  .x  .x 


Table  XVII.  List  of  Symbols  for  Subroutine  LINK  (concluded) 
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r-t  ei 

HWWVlfi(Dt»0O  05rH*HfH 

tfHfH 

SssgSSiSSSSSs 

XKXfcxxRKttRiKSx < 


O  H  N  U 

i-IC'le0^mCDt-000>i-lrHr-tO 
i  i  i  i  ••  i  i  i  i  i  i  c 

►  X  .x  .X  .x  .X  .x  .X  .X  .x  *X  .x  .x  ^ 


of  u  (see  p.  22) 
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SUBROUTINE  SLINK(HP) 

COMMON/ADAP/MODE»A( 1000) 

DIMENSION  HP ( 21*18) *YYD| 21 I *DXXD( 18 ) »YYD1 (21 )  *  I !XXD( 18) »A 1(18) 
EQUIVALENCE  (DXXDI 1 ) *A( 201) ) • t YYDt 1) »A (311 ) ) • ( At ( 1 ) *A( 901 ) ) 

IF  (M0DE)l*2*2 

1  IF(M00F.LF**-2)  RETURN 
SIGN-1. 

DO  500  1*1*18 
500  IIXXD(I)*AI( I ) 

LW-9 

RETURN 

2  CONTINUE 

DO  100  J«l*18 
JJ-IIXXD(J) 

10  SIGN— l.»5IGN 
PFRT-SIGN*DXX0( J) 

A( JJ)-A( JJI+PFRT 

call  sfnx 

A(  JJJ-AUJI-PFRT 
1 9 (SIGN  1 20* 20 *40 
20  DO  504  1*1*21 
504  YY01 ( I )*YYD( I ) 

GO  TO  10 

40  DO  100  1*1*21 

IF J ABG(HP( 1  * J) ) .LT..1E-6 )  HP(I*J>-0. 

HP(  I*JI-<YYD(  I  )-YYDl(I  n/(2.#PXXD(  J»  ) 

100  CONTINUE 
CALL  SFNX 
VfRITF  (LW*700) 

700  FORMAT ( 1H1/7X »15H  HP  MATRIX//) 

CALL  MP(21*18*21.1«»HP»LW) 

RETUPN 

END 

Figure  36.  Subroutine  SLINK  Program  Listing 
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i»m  -—  ■*•  M*‘~’ 


f*  fin  r»  nna  r»r\r» 


SUBROUTINE  ML  INK 
COMMON/AOAP/MODE*AC 1000) 

COMMON  XDOTt 20) *XD0Tl (20) ;F t 20*20). Gl (20*10) »fi*( *0*10) 

COMMON  I!X(12)*nu(6)»UW(9)*nX0(l2) 

DIMENSION  OX ( 12) »DU(6 I *0W( 2 ) * Al (A0I 
DIMENSION  E(«)*XS(20) 

DIMENSION  FW(a*8)»GW<8»4)»HW(6»R)*fl3<20»4> 

««••  PARAMETER  INPUTS 

EQUIVALENCE  (OX(t)  *A(20l))»(OU(l)»A(221))*(Dt'(l)  *A(231))» 

1  (ANX  *A( 170) ) » (ANU  »A( 171 ) ) * ( AN*  »A<17?))» 

2  (At ( 1 )  »A(901 ) ) 

IE(M00E)1*2»2 

1  IF(MOPF.LE.-2)  RETURN 
SIGN»1« 

SET  INDEX  ARRAYS 

NX*ANX 

NU-ANU 

NW-ANW 

LW-9 

!TAPE«A 

00  900  I»1*NX 

IIX(I)  *AIIII 

II«I4NX 

900  IIXO(I)-AI(m 
Ifl«7*NX+l 
IF-tn+NU-1 
00  501  I-Irt.IF 
J-I-?*NX 

501  IIU(J)bAKI) 
in-iF+i 
IF«I1*NW-1 

DO  902  I-IB.IF 
J"I«2*NX— NU 

502  I IW( J)»AI ( I ) 

CALL  WINDK(FW*GW*HW) 

RETURN 

P\RTIALS  WiR»T#  STATF 

2  CONTINUE 

00  1001  t«l *20 
00  1002  >1*20 
002  F( I »J)bO* 

DO  1001  >1*10 
Gl ( I »JI*0« 

001  G?(I*J)«0« 

SAVE  E 

00  902  IM*NX 
II-IIXO(I) 


Figure  37.  Subroutine  WUNK  Program  Listing 
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WW'  V5V«/: 


|<»WUHi 


90?  XStI)-AtII) 

00  900  1-1.9 
JK-53+I 

900  Ft I )«At JK) 

LIN-1 

00  100  J-l.NX 
JJ-IIXJJ) 

10  SIGN— l.*SIGN 
PERT-SI6N*DXtJ) 

AtJJ)-A(JJ)+PERT 
001  CALL  WAERK 

CALL  DYNK(LIN) 

A(JJ)-AtJJ)-PERT 
00  304  1-1 .NX 
II-TJXDU) 

504  XDOTtI)-AfI!) 

IF<SIGN)20.20»40 

20  DO  30  I-l.NX 
30  XDOTltD-XDOTtl) 

GOTO  10 

40  00  100  I*1»NX 

F(  1  »J)«.X90T t  I  )*»X00Tl  ( 1 1  )/(2«9DX(  J) ) 
IFlAnS(FCI.J)  )oLT..00000Ol)  F(l.JJ-C). 
100  CONTINUE 

WRITE(LW.TOO) 

CALL  MPt20.?0.NX.NX.F.LW) 

700  FORMAT ( 1H1/7X » 10H  F  MATRIX  //) 

I Ft NU) 201 .201.105 

C  PARTIALS  W.R.T.  STATE 
105  00  200  J-l.NU 
JJrflUtJ) 

110  SIGN— l.#SIGN 
PERT-S1GN*DU< J) 

At JJ)-At JJ)+PERT 
«04  CALL  WAERX 

CALL  OYNXtLIM) 

AtJJ)-AtJJ)-PFRT 
00  505  1*1. NX 

n-iixotn 

505  XDOTtn-Atin 

IFt SIGN) 120. 120.140 
120  DO  130  I-l.NX 

130  xooTim-xooTtn 

GOTO  110 

140  DO  200  I-l.NX 

Git  I .JI-tXDOT 1 1 )— XDOTl 1 1 ) i/t2.*DUtJ) ) 

I F t  ABS ( G1 1 1 » J ) ) .LT . • 0000001 )  Gl ( I , J) -0. 

200  CONTINUE 
WRITEtLW.701) 

701  FORMAT I1H1/7X.10H  Gl  MATRIX//) 

CALL  MPI20.10.NX.NU.G1.LW) 

201  IF tNW)30 1.301. 205 

C  PARTIALS  W.R.T.  DISTURBANCE  PARAMFTfcWS 
205  DO  30C  J-l.NW 


Figure  37.  Subroutine  WLINK  Program  Listing  (continued) 


122 


Figure  37. 


no  S1GN>-1«*S!6N 
PERT*S!GN#DWt J> 

A<JJ)«A(JJ14PFRT 
80?  CALL  WA6RK 

CALL  OYNK(LIN) 

AC JJ|»AC JJl-PFRT 
00  506  I »1  »NX 

n-nxod) 

506  XDOT( 1 )»A( II) 

IF  I SIGN) 220 » 270*740 
220  00  730  I ■  ! »NX 
230  X00Tl(I)«X00T(n 
OTO  210 

240  uO  300  ! "1 »NX 

G2I I *J)«IXDOTI  l  l-XDOTK  I ) ) /C2**RW( J>  > 
IF(ABS«G2( I *J)  >.LT., 0000^01)  G2{ I«J)«0. 

300  CON’INUF 
WRITE  I LW. 70? I 

702  FORMAT ( 1H1/7X •  10H  f.?  MATRIX//} 

CALL  MP  I  20 • 1 0  * MX *MW • G? • t W ) 

301  CONTINUE 
C 

C 

C  RESTORE  E 
C 

DO  901  l«l»9 
JK-53+I 

901  A(JK>«r(l> 

DO  903  I-l.NTX 
II-TIXDCI) 

903  A(II)«X5>(n 

CALL  WI NDM  FK  *  GW  *  HW ) 

DO  1010  1*1*8 
II«NX4! 

00  1010  J>1*8 
JJ*NX4J 

1010  FI  I J  * JJ)*FW( 1 »J) 

DO  1011  !"1»20 
DO  1011  J»l*4 
10i:  G3( 1  * J)»0. 

DO  1012  I»i*8 
II-NX+I 
DO  1012  J>1*4 
101?  G3( II i>J)»GW( I  *  J) 

DO  1013  I-l.NX 
DO  1013  J«l»8 
JJ-NX+J 

DO  1013  K*1»NV.' 

1013  Ft  I  * JJ|wF{ I • JJI+G2I I *K)*HW(K» J) 
WRITF(!TA»E)F 
WRITF(ITAPE)G3 
RETURN 
FMD 


Subroutine  WLINK  Program  Listing  (concluded) 
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SURROUTINP  EXF* 

COMMON/ADAP/MODE » A ( 1000) 

DIMENSION  VST(20)»FUN(iO) 

EQUIVALENCE  (  TM  »A<001) >  t  (DELT  »A(089) ) »(DTOUT  »A(13*n» 

1  (6AM  f  A(0{6H  *(QAMN  »A<?6U>> 

IF (MODE) 100.200*300 
100  IFIMODE.LE.-? IRETURN 
LW-9 
LR-5 

A(l*3>-1. 

A (146) -1000. 

WR!TE(LW*m» 

131  FORMAT! 1H1.S0X.4HADAP//) 

I F ( RNDM. EQ. 1 • 23*3 )  GOTO  13? 

RNDM-1.2349 

RUN-O. 

CALL  PRINT 
13?  RUN-RUN+1. 

A( 1331-RUN 

WR I TE ( LW . 133 1 RUN 

133  FORMAT(*3X.10HRUN  NUMBER.F6.2// > 

CALL  PREAO(RUMRfLRtLW) 

IF(RUNR.f0.2,»  STOP  77 

ISTRT-0 

IFNO  -0 

CALL  FLOOK(V$T.FUN,ISTRT»lFNDI 
GAM-GAMN 

A (723) -SORT (A(7)*A!7)+A(B)*A(R)+A(9)*A(9)) 

A(10)-A(7)-A(10H 

A(ll)-A(8)-A(102) 

A(12)-A(9)«A(103) 

RETURN 
200  CONTINUE 

COMPUTE  DT  AND  INITIALIZF  PERIODIC  PRINT 

A(B9)-A(132)/A(131) 

TOUT-TM+OTOUT 
TM-TM+DELT 
RETURN 
300  CONTINUE 

TEST  FOR  PERIODIC  OUTPUT 

IF(TOUT.GT.TM-f.OOOl)  GOTO  *90 

TOUT-TOUT+OTOUT 

CALL  DDUMP(LW) 

UPOATF  TIME 

*50  TM-TM+OELT 
RETURN 
FND 


Figure  39.  Subroutine  EXEK  Program  Listing 
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Subroutine  FLOOK 

Subroutine  FLOOK  implements  the  development  given  in  Appendix  I  of 
this  volume.  It  reads  the  card  input  data  for  tables  in  the  first  call.  In  sub¬ 
sequent  calls,  it  looks  up  tables  and  interpolates  to  find  the  value  of  a  function 
at  a  given  argument  set. 

The  subroutine  flow  diagram  is  shown  in  Figure  40  and  the  program  list¬ 
ing  in  Figure  41.  Symbols  are  listed  in  Table  XVIII. 


Subroutine  PREAD 

Subroutine  PREAD  reads  the  common  input  cards  in  ADAP  1  and  writes 
the  contents  of  input  cards.  It  exits  either  in  reading  the  control  card  RUN 
which  signifies  the  end  of  common  card  inputs,  or  in  reading  the  control  card 
STOP  which  signifies  the  end  of  the  computer  run.  It  calls  subroutine  PRINT 
to  read  the  A -array  parameter  output  specification  cards. 

The  subroutine  flow  diagram  is  shown  in  Figure  42  and  the  program  list¬ 
ing  in  Figure  43. 


Subroutine  PRINT 

Subroutine  PRINT  reads  A -array  output  specification  cards  and  prints 
out  the  specified  A -array  contents  at  the  given  time  points.  The  subroutine 
flow  diagram  is  shown  in  Figure  44  and  the  program  listing  in  Figure  45. 


Subroutine  DDUMP 

Subroutine  DDUMP  prints  the  nonzero  elements  of  the  A -array  at  speci¬ 
fied  time  points.  The  subroutine  flow  diagram  is  shown  in  Figure  46  and  the 
program  listing  in  Figure  47, 
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Figure  40.  .,abroaUne  FLOOR  Flow  Diagram 
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Figure  40.  Subroutine  FLOOR  Flow  Diagram  (continued) 
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Figure  40.  Subroutine  FLOOK  Flow  Diagram  (continued) 
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(  TEST  NV  ) 


<-300CT 

I  r 


-100 


200 


(3  VARIABLE  FUNCTION) 


780 


NX  *  ILST(I)  -  IFSTCI)  +  1 
ii  1  i  -  1 

MX  =  ILST(il)  -  IFST<ii)  ♦  X 
ITMP1  *  MX  *  NX 

11  *  NX  *  (UO(ii))  -  IFST(ii)  +  MX(LID(i-2)  - 

IFSTd-2)))  ♦  U0<l)  -  IFST(i)  ♦  IFN(I2) 
L2  *  LI  +  TMP1 

L3  1  LI  +NX 

L4  =  L3  +  ITMP1 

LS  -  L3  +  1 

L6  «  L4  +  1 

L7  *  LI  + 1 

L8  «  L2  +  1 

7MP1  =  F(L2)  -  F(L1) 

TMP2  =  F<L4>  -  F(L3) 

TMP3  *  1.0  -  DLT(J1  -  1) 

TMP4  -  DLTfjl  -  1) 

TMP5  -  DLTtjl  -  2) 

FUN(I2)  =  <!<F0.8)  -  F(L7)  -  TMP1>  *  TMP5 
♦  F(L7)  -  F(L1)  *  TMP3  +  «F(L6>  - 

-  F(L5>  -  TMP2)  *  TMP5  +  F(L5)  - 

-  F(L3))  *  TMP4)  *  DLT(Jl) 


-©  * 


Figure  40.  Subroutine  FLOOR  Flow  Diagram  (continued) 
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Figure  40.  Subroutine  FLOOK  Flow  Diagram  (concluded) 
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n  n  r>  n  r>  r> non 


i  — if  in/iiV 


SUB ROUT 1 Nf  FLOOK ( VST  .FUN  » 1 STRT  » 1 ENI >  \ 

COMMON  /ADAP/MODF  *  A  ( 1000 ) 

EQUIVALENCE! MFN»MNF> »  »  TARR0.A<997  )  I 

DIMENSION  1FST ( ISO) »ILST { 150) * IPN( 80 ) *F! 2500) »LIDt 150) *V(500 ) 
OlMENStuN  VST<?0)*NL(l50)*m.T(3)»NFIDt«0)»IMS(100)*KKV<3)»KV<3) 
DIMENSION  R(9)»FUN<80>»Xrm»RALF<20) 

INTEGER  BLANK, RALF 

IF<  MODE. EQ.-l.  AND. TA»-RO.NE.O.>  GOTO  5510 
IFIRNDM.EO. 123*56.)  GOTO  510 
5510  RNOM-123456. 

THE  ARRAYS  SHOULD  RE  DIMENSIONED  AS  FOLLOWS 

DIMENSION  A(200S*IFST (MNFV) » 1LST (MNFV )  » IFN (MMF ) *F  t MNFVL ) »L1D( MNFV ) . 

V ( HNVVL > » VST ( MNU« ) ,.NL( MK'V J  t  DLT ( 3 ) » NF I D (  .INF  )  » I MS  * MKKV )  * 
KKVJ3)  KVt3>»RIV).FUM|MNF>»XFI3)*RALF«20) 

WHERF 

10  MKKV  «  100 

MNFV  ■  150 

MNF-BO 
MNFVL-2500 
MNVVL*500 
MNUV  »  20 

LW  «  9 

IVREAD  *  5 

AND  IF  ANY  OF  THESE  VALUES  ARE  CHANCiLi).  THF  DIMENSIONS  OF  THE 
APPROPRIATE  ARRAYS  ^UST  flE  CHANGED * 


17  ITMP1  ■  0 
IVCT  ■  0 
NFVL  •  0 
NFV  ■  1 
NWL  ■  0 
NF  «  0 
OLANK«10H 
TRASH  ■  9999999.0 
19  00  20  I  ■  l.MKKV 
•>0  1MSU)  ■»  0 
50  ITM.P2  ■  0 

READ  ( IVREAD  » 60)  KNV  »KKV (1) »KV ( ' ) .KKV C  2  >  »KV ( 2 ) , KKV ( 9 ) ,<V ( 3 ) . KFN , 
1KFNS 

WRITFI9.60)  KNV.KKvm»KVm.'CKV(2>.KVl?).KKV<3)»KV(‘M»KF<% 

1KFNS 

60  FORMAT  (I5.I4»l2»!4»I2»I4»I?*I4.I'il 
IF  (KNV)  500*500.65 
65  IF  (KFN.LE.O)  GO  TO  444 

IF  (KFN.GT.MNF)  GO  TO  444 
NFID(KFN)  -  NFV 
70  IF  (  KN«  -  3  j  80*80. ‘ 

80  IF  (  NF  **  MNF  )  90.444*444 
90  I  »  1 

NF  ■  NF  +  1 

95  IF  (  KKV ( I )  )  444.444*100 
100  IF  (  KKV ( I )  -  MKKV  )  110*110*444 
110  II  ■  KKV(I) 


Figure  41.  Subroutine  FLOOK  Program  Listing 
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IP  (  IMSUI)  )  120*1)0*120 
120  ITMP1  •  1 
K  •  IMS(Il) 

I  PST (NFV)  ■  IFST(K) 

ILST(NrV)  >  IL$T(K) 

GO  TO  140 
130  1MSUI1  ■  NFV 

IFST(NFV)  ■  1VCT  ♦  1 
ILST(NFV)  »  1VCT 
140  LID(NFV)  ■  IF ST (NFV ) 

IF  (  ITMP2  )  150(160*150 
150  ITMP2  «  0 
GO  TO  180 

160  READ(IVREAD.i65HRALF(Jl  )»J1«KB) 

165  FORMAT(BAIO) 

WRITE (9*165) (RALFt Jl)»Jl»l»8) 

DECODE ( 80»170*RALF)KNVl » (R( J1 ) * J1  ■  1*9) 
170  FORMAT  ( 14«4X,9E8.1 ) 

180  IF  (  KNV1  -  KKV( 1 )  )  260*190*260 
190  IF  (  ITMP1  )  160.200*160 
200  J1  «  1 

205  IF(R(J1).GT. TRASH)  GO  TO  2)0 
IFU1.LE.5)  'jOTO  46 
JJ-J1-1 
Jll-Jl 
GOTO  47 

46  JJ-J1 
Jll-Jl+1 

47  CONTINUE 

GOTO* 30*31*32 »33*34»)0»31 . 32 *33 > » J1 

30  ENCODE ( 0*40. NAME ) RAUF t  J J ) *RALF { JI  1 ) 

40  F0RMATJR2.A6) 

GOTO  49 

31  ENCODE (8  »41 .NAMEJRALF ( JJ ) *RALF( J1 1 ) 

41  FORMAT (R4.A4) 

GOTO  49 

32  ENCODE(8*42»NAME)RALF(JJ)»RALF( Jll) 

42  FORMAT(R6»A2) 

GOTO  49 

33  ENC0DE(8»43*NAME)RALF(JJ) 

43  FORMAT (R8) 

GOTO  49 

34  FNCODF (8*44*  NAME ) RALF ( J J ) 

44  FORMAT(AB) 

49  CONTINUE 

IF(NAMF,EO„;U.ANK)  GOTO  730 
210  IF  (MVVL  -  MNVVL)  220*444*444 
220  ILST ( NFV  *  •  JLST(NFV)  ♦  1 
NVVL  ■  •-VVL  ♦  l 
V(MVVL)  ■  RIJ1I 
230  IF  (  J1  -  9  )  240*250*250 
240  JI  «  JI  ♦  l 
GO  TO  203 

250  IVCT  «  ILST ( NFV) 


Subroutine  FLOOK  Program  Listing  (continued) 
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GO  TO  160 
260  ITMF2  •  l 
ITMF1  •  0 

IF  (  KVU)  )  444*444*270 
270  IF  (  KV(I)  -  MNUV  )  280 *260*444 
280  NL(NFV)  •  KNV«100  4  KV<!) 

NFV  •  NFV  ♦  1 

IF  I  I  -  KNV  I  290*310*310 
290  IF  (  NFV  -  MNFV  )  800*444*444 
800  I  •  I  ♦  1 
CO  TO  95 

510  IF  (XFNS)  444.384*836 

335  IFN(KFN)  *  NFVL  ♦  1 
60  TO  350 

336  IF  I  KFNS  -  MNF  )  337*337*444 

337  IFN(KFN)  •  IFN(KFNS) 

GO  TO  50 

340  READ! IVREAO* 165) ( RALF ( Jl t . Jl-1 *8 > 

WR1 TF (9*165 ) (RALF(J1)»J1»1»B) 

DECODE! 80*170  *RALF)KNVl » ( R( Jl ) • Jl  ■  1*9) 

350  IF  (  KNV1  |  50*360*444 
360  Jl  •  1 

365  IF (R(Jl).GT. TRASH)  GO  TO  385 
IFIJ1.LF.5I  GOTO  26 
JJ-J1-1 
J1I-J1 
GOTO  27 

26  JJ-J1 
JU-JU-1 

27  CONTINUE 

GOTO (21 *22*21 •24.29*21* 22*23*24) *J1 

21  ENCODE ( 8 . "» . N AME ) R ALF ( J J ) . RALF ( Jl 1) 

GOTO  29 

22  ENCODE(8»  ,AME)RALF( JJ) *RALF( Jli> 

GOTO  29 

23  ENCODE ( 8  *42 • N AME ) R ALF ( J J ) »RALF ( J 1 1 ) 

GOTO  29 

24  ENCODE (8*43*  NAME ) R ALF ( JJ ) 

GOTO  29 

25  ENCODE ( 8  *44*  NAME ) R ALF ( JJ ) 

29  CONTINUE 

!F( NAME. EQ.B LANK)  GOTO  385 
370  IF  {  NFVL  -  MNFVL  )  380,444*444 
3BO  NFVL  ■  NFVL  ♦  1 
F(KFVL)  -  R( Jl ) 

385  IF  (  Jl  -  9  )  390*340*340 
390  Jl  «  Jl  +  1 
GO  TO  365 

444  WRITE  (LW.445)  KFN,KNV*KV(1>  *KVt 2 )  ,KV(3 )  *KKV(1)  *KK.V( 2 >  *«V(  3 ) , 

1  NVVL»MNWL»NFV*MNFV,NFVL»MNFVL*NF*MNF*KNV1.KKV<1), 

2  KKV(2)»K*V(3) 

445  FORMAT  (26H  FUNCTION  TABLE  DATA  ERROR/18H  FUNCTION  NUMBER  -15/ 

1  22H  NUMBER  OF  VARIABLES  -I3/5H  VI  -13  /5H  V2  -I3/5K  V3  -13 

2  /7H  SETl  -I4/7H  SET2  -I4/7M  SET3  -I4/7M  NVVL  -I4.3H— 14/ 


Figure  41.  Subroutine  FLOCK  Program  Listing  (continued) 
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3  7H  NFV  al4.3»»— I4/7H  NFVL  ■  I4*3H~-»14/7H  NF  •!4»3H— 

4  I4/7H  KNV1  «I4.4H— -U2.1H.I2.1H.12.1H)  > 

STOP 

500  RETURN 
510  J1  •  1 

12  a  ISTRT 

IF  ( 1 2.LF.0)  12  •  1 

610  IF  (I2.GT.IFND.0R.I2.GT.MFN)  GO  TO  030 
I  •  NFIDU2) 

IF  (I.LE.OI  GO  TO  810 
IF  (  NUI)  -  300  )  630i2222. 620 
620  ISTP  ■  I  4  2 
NV  -  300 
GO  TO  660 

630  IF  (  NL(  I )  -  200  )  650.2222.640 
640  ISTP  ■  I  4  1 
NV  ■  200 
GO  TO  660 
650  ISTP  ■  I 
NV  •  100 

660  IF  (  ISTP  -  NFV  )  670.670.2222 
670  J  •  NIU)  -  NV 

IF  (  J  )  2222.2222.660 
680  IF  (  J  -  MNIJV  )  690.690.2222 
690  IM  ■  IIDU) 

695  iF  (VST(J>  -  V(  IM) >700.720.720 
700  IF  MM  -  IFST(I))  2227.715.710 
710  IM  •  IM  -  1 
GO  TO  695 
715  UOm  ■  IM 
OLTCoi)  -  0.0 
GO  TO  755 

720  IF  (VST  I J )  -  VCIM  +  1H750. 750.730 
730  IF  (IM  -  ILST(I)  4  1)  740.745.2222 
740  IM  a  IM  4  1 
GO  TO  720 
745  LID(I)  a  IM 
DLT(Jl)  a  1,0 
GO  TO  753 
750  LID(I)  •  IM 

DLT(Jl)  a  (VST(J)  -  V(IM))/(V(IM*1>  -  VMM)) 

755  IF  t!  -  ISTP)  760.770.770 
760  J1  a  J1  ♦  1 

I  -  I  4  1 
GO  TO  670 

770  IF  (NV  -  200)  800.7V0.780 
780  NX  a  ILST(I)  -  1FSTU)  4  1 

II  a  l  -  l 

MX  a  ILST (II)  -  IFST(II)  +  1 
ITMP1  a  MX*NX 

U  »  NX*(LID(Il)  -  IFST(II)  4  MX»UID(I-2>  -  IFST(I-2)>)  4 
1  LIOMI  -  IFST(I)  4  IFN(  12 ) 

L2  a  LI  4  ITMP1 

13  a  LI  4  NX 


Figure  41.  Subroutine  FLOOK  Program  Listing  (continued) 
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L4  ■  11  +  ITMP1 

L3  »  L3  ♦  1 

L6  •  U  ♦  1 

17  »  LI  ♦  1 

L«  .  12  ♦  1 

TMP1  •  F(L2)  -  F(L1) 

TMP2  -  F(L4)  -  F(L3) 

TMP3  >  l.o  -  DLTU1  -  1) 

TMP4  •  DLTCJ1  -  1) 

TMP5  ■  DLT(J1  -  ?» 

FUN(12)  ■  « C (FCLSI  -  FU.7J  -  TMPl>#TMP»  +  F(L7)  -  F(L1))*TKP3  + 

1  ( ( F ( L6 )  -  F(L3>  -  TMP2»#TMP5  4  F(L5)  -  F(L3 ) >«T>'P4 )* 

2  DLT( J1 )  ' 

785  FUN (12)  ■  FUN (12)  +  TMP3*(TMPl*TMP5  +  F(Ll)i  + 

1  TKP4#(TMP2*TMP5  +  F(L3»| 

GO  TO  810 

790  MX  •  ILSTU)  -  IFST<  I )  ♦  1 

LI  -  LIO(I)  -  IFSTCI)  ♦  MX*(LI0(|— 1 )  -  IFST(I-l))  ♦  IFN(I2) 

L2  ■  LI  ♦  MX 

L3,«  LI  ♦  l 

L4  ■  L3  +  MX 

TMPl  >  F(L2)  -  F(L1 ) 

TMP?  ■  F(L4)  -  F(L3) 

TMP3  •  1.0  -  OLT(Jl) 

TMP/,  .  OLT(Jl) 

FUN ( 12 )  ■  0.0 
TMP5  •  DLT(J1  -  1) 

GO  TO  783 

800  LX  •  LZD(I)  -  IFST(I)  ♦  IFN(I2> 

L2  ■  LI  +  1 

"  RLn  +  “  F(L1))*DLT(J1) 

810  12  m  12  +  * 

J1  ■  1 
GO  TO  610 
830  RETURN 

???2  WRITE  (9*22*3 )  NFlO(X) »J.VST( J) 

2223  FORMAT  (20H  TABLE  LOOK-UP  ERR0R/17H  FUNCTION  NUMBER  13/ 

1  17H  VARIABLE  NUMBER  I3*1H»f11,4) 

INI T  »  -2 

RETURN 

END 


Figure  41.  Subroutine  FLOOR  Program  Listing  (concluded) 


Table  XVIII.  List  of  Symbols  for  Subroutine  FLOOR 


Mnemonic 

Description 

1TMP1 

Switch  used  to  ignore  a  set  of  variable  values  in  the  input 
if  they  have  been  read  previously 

1TMP2 

Switch  used  to  determine  when  a  variable  value  card  should 
be  read 

KNV 

Number  of  variables 

KKV(l) 

KKV(2) 

KKV(3) 

f  Sot  numbers  associated  with  the  first,  second,  and  third 

1  variables,  respectively 

KV(1) 

KV(2) 

KV(3) 

|  First,  second,  and  third  variables,  respectively. 

KFN 

Function  number 

KFNS 

Number  of  the  previously  read  function  table  with  identical 
function  table  data. 

MNUV 

Maximum  number  of  variables 

NV 

Number  of  variables 

NFV 

Heading  sequence  number 

F 

Function  table  array 

FUN 

Current  value  of  each  function  after  interpolation 

LID(  ) 

Starting  location  for  variable  value  search 

NFV 

Total  number  of  variables  specified,  where  fj  (or),  f2(<*)> 
and  fg(ar)  count  as  three  variables 

NFVL 

Total  number  of  function  table  values  that  were  read 

NVVL 

Total  number  or  variable  values  read 

NUV 

Number  of  unique  variables  specified;  such  as  a,  0,  M, 
pj  q,  • » •  i  etc. 
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Table  XVIII.  List  of  Symbols  for  Subroutine  FLOOR  (concluded) 


v*a**r-*>’  ***?&*  f-v;-,  > - «’ 


SUBROUTINE  PREAD t  RUNR  »LR tLW )  ! 

COMMON/ADAP/MODE.AUOOO)  ! 

DIMENSION  IR(20)»RAL(20l  | 

COMMON  ALF (20)  i 

INTEGER  ALFtXYZ  i 

IPCCtiO  1 

RUNR*»0* 

c 

c  ****  READ  CAPO  INPUT  **** 

C 

230  RFAD(LR»232) ( ALF! I ) *1*1*8 ) 

232  FORMAT! 8A10) 

DECODE ( 80*235 • ALF ) XYZ 
235  FORMAT! Al» 

240  IF(XYZ.EQ,1HC)  GOTO  198 
IF! XYZ.EQ«1H/ )  GOTO  230 
DECODE ! 80*250 • ALF ) \’Z 
250  FORMAT (A3 l 

IF!XYZ.EQ*3HPRI)  GOTO  300  j 

C  PRINT  SPECIFICATION  CARD  | 

IF(XYZ*EQ.3HPCC)  GOTO  4<U>  I 

C  PARAMETER  CHANGE  CARD  j 

IF ( XYZ«EQs3HRUN)  GOTO  1090  ) 

C  RUN  CARD  | 

IF(XYZ,EQ.3HST0>  GOTO  1100 
C  STOP  CARD 

IFUPCC.EO.l)  GOTO  400 
WRITE(LW»270)(ALF!t).lM»8> 

270  FORMAT ( 12H  INPUT  ERROR/OAIO)  i 

198  DECODE! 80*200* ALF ) ( 1R(1)»I*1*8)  i 

200  FORMAT (8A10)  j 

210  WRITE(LW*220HIR(l)»I«l*8) 

220  FORMAT ( 20X»8A1Q)  . 

GOTO  230  j 

c  *•##  READ  PRINT  SPEC  CARDS  ***»  i 

300  CALL  PRINT 

DECODE! 80*235 >ALF)XYZ 

!PCC*0 

GOTO  240 

400  IF(XYZ.EQ.3HPCC)  GOTO  650 

DECODE (80 *420* ALF) ( IR! I ) »RAL( I)*I*1*5)  j 

420  F0RMAT(5(I4*Ell,4)l  , 

445  WRITE! LW»450 ) ( IR! I ) *RAL( 11*1*1*5)  i 

450  FORMAT! 5! I5»E15*7l)  i 

DO  600  1*1*5 

J»IR( 1 1  ! 

IF! J) 470*600 *500 

500  IF!  i.GT.999)  GOTO  470  ] 

A! J)«RAL( I ) 

600  CONTINUE 
GOTO  230 
650  IPCC*1 

WRITE!LW,670) 

670  FORMAT! /23H  PARAMETER  CHANGE  CARDS) 


Figure  43.  Subroutine  PREAD  Program  Listing 
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Figure  43 


;  a *,%r  '?~t*  W^r-7^TL  \  ;  .i 


ROTO  290 

470  WRITF(LW»480)  IIR(K)  »RAL( K) tKal  #51 
480  FORMATC 11H  CARO  ERR0R/5I 15»F19.?>/I 
M00F*-2 
RETURN 
1090  RUNR«1. 

RETURN 
1100  RUNR-2. 

RETURN 

FND 


Subroutine  PREAD  Program  Listing  (concluded) 
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SUBROUTINE  PRINT 

DIMENSION  IRD<16)*!DX(100)»R(100) 

COMMON/ADAP/ MODE  »  A  ( 1000) 

COMMON  ALF<20) 

INTEGER  XYZ.ALF 
IF(MODE)20*300»300 
20  IF(  A<  138  )*»1«  )  25*30*30 
25  NUM-0 
LR»5 
LW*9 
RETURN 
30  NUM-0 

50  RFAn<LR*60M  AlF(t)»I«l*8) 

AO  FORMAT (8410) 

DFCODE( 80*80 *ALF)XYZ 
80  FORMAT C AJi 

1F(XYZ.NE.1H  )  RETURN 

DECODE <  80*100  * ALE  )(IRD(J1)*J1*1*16) 

100  FORMAT (1615) 

140  DO  200  I»l*16 

IF(IRD(I))275. 200*150 
150  IF( IRD(I)-999)160*160»275 
160  NUM«NUM+1 

I F(NUM-IOO) 175*175*285 
175  IDX(NUM)»IRD(I) 

200  CONTINUE 
C.OTO  50 

275  WRiTF(LW*280) (IRD(J1)*J1»1*16) 

280  FORMAT (//17H  PRINT  SPEC  ERROR/1615) 

STOP 

285  WRITE(LW*290) 

290  FORMAT ( //47H  CANNOT  SPECIFY  MORE  THAN  100  OUTPUT  QUANTITIES) 
STOP 

300  IF(NUM.EQ.O)  RETURN 
DO  400  J"1»NUM 
J1«IDX(J) 

400  R(J)«A(J1) 

WR I TE ( LW  *500 ) A ( 1 ) 

500  FORMAT,'  1H1/7H  TIME  «F8.3) 

WRITE(LW.600MIDX(  J) »R( J ) . J»1 *NUM) 

600  FORMA T( 7 ( I4»E12*4 ) ) 

RETURN 

END 


Figure  45.  Subroutine  PRINT  Program  Listing 
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Figure  46.  Subroutine  DDUMP  Flow  Diagram 
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SUBROUT I NEODUMP <LW) 

COMMON /  AD  AP / MODE  *  A  ( 1000) 

OIMENSION  IR(7) *RAL(7) 

J“0 

N1-AI145) 

N2-AI146) 

WRI TE(LW» 1750 )N1*N2 

1750  FORMAT ( 1H1//32H  LIST  OF  NON-ZERO  ELEMENTS  IN  AU4*11H>*  THRU*  A(  14 
1»1H)/) 

ILIN*0 

DO  1350  !»N1*N? 

IF(A(l).FQ.O.)  GOTO  1850 
J»J+1 

IF( J*LT*8)  GOTO  1800 
IF( ILIN*LT*47 )  GOTO  1900 
ILIN-0 

WRITE  (l.W«1901) 

1901  FORMATdHl//) 

1900  WRI TE(LW» 1780) (IR(K) »RAL<K) *K«1*7) 

1780  FORMAT(7CI4*E12.4)) 

ILIN-ILIN+1 

J-l 

1800  IR(J)»I 

RAL(J)cA<!) 

1850  CONTINUE 

WRITE(UW*1780)(IR(K)*RAL(K)*K>1»J) 

RETURN 

END 


l 


Figure  47.  Subroutine  DDUMP  Program  Listing 
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SECTION  IV 

ADAP  2  (DISCOP)  --  NONSTATIONARY 
OPTIMIZATION  PROGRAM 


ADAP  2  is  a  program  for  optimization  of  discretized  nonstationary  sys¬ 
tems.  It  develops,  for  time-varying  linear  systems,  the  optlxna!  •'  mtr  oiler 
gains,  the  optimal  estimator  gains,  and  corresponding  costate  ana  error 
covariance  matrices.  In  addition,  it  computes  the  total  covariance  of  a 
system  with  optimal  estimators. 

The  total  covariance  evaluation  for  systems  using  nonoptimum  estimators, 
involves  the  dynamics  of  cross-covariance  matrix  [Volume  I,  Equation 
<10.  35)].  This  is  not  included  in  ADAP  2. 

The  subroutines  in  the  program  can  be  classified  into  three  groups  — 
basic  subroutines  which  implement  the  mathematical  models,  subroutines 
which  manipulate  the  linear  data,  and  auxiliary  subroutines  for  the  input  and 
output  of  matrix  quantities  and  inversion  of  matrices,  etc. 

In  this  section,  input/ output  information  is  given  first;  then  the  main 
program  and  i+n  subroutines  are  described. 


ADAP  2  INPUT /OUTPUT 


INPUT  DESCRIPTION 

Input  for  ADAP  2  is  in  the  form  of  cards  and  of  data  stored  on  a  perma¬ 
nent  disc  file. 


Card  Data  Input 


The  first  group  of  cards  to  be  read  is  cards  1-5  which  provide  basic 
program  data.  Their  formats  are  shown  in  Table  XIX. 

Th  'ext  group  of  cards  to  be  read  are  the  nonzero  elements  of  the 
matrr  •»  i,  Dj,  Q,  Wi,  W2  and  H2.  These  cards  are  read  by  six  calls 
to  the  itine  INPT.  The  calling  statement  of  this  subroutine  is 

CA-  (A,  NROW,  NCOL) 
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Table  XIX,  Format  for  ADAP  2  Data  Input  Cards  I 


V 

i* 


Card/ Format 

Column 

Quantity 

Description 

1  M4I2) 

1-2 

NX 

Number  oi  states 

3-4 

NR 

Number  of  responses 

5-6 

NU 

Number  of  controls 

7-8 

NW 

Number  of  disturbances 

2/(514) 

1-4 

NRT 

Number  of  measurements 

5-8 

NM 

MN-  _  C  Do  not  compute  mean 
*  "  ~  1  Compute  mean 

8-12 

MO 

Number  of  times  through  the  outer  loop  in  the 
subroutines  GAIN  and  COV. 

13-16 

MIL 

Number  of  times  through  the  inner  loop  in  the 
subroutines  GAIN  and  COV  for  the  "last"  data 
interval  (i.  e. ,  the  release  time  is  some  fraction 
of  a  regular  data  interval  MIL/MIR. 

17-20 

MIR 

Number  of  times  through  the  inner  loop  in  the 
subroutines  GAIN  and  COV  for  a  "regular"  data 
interval. 

3/(414) 

1-4 

NME 

VMS'  _  0  No  estimator  computation 
j  Estimator  computation 

5-8 

NRB 

NRB  =  1 

9-12 

NRE 

NRE  =  MR 

13-16 

NFREQ 

Output  will  cscur  every  NFREQ  times  through 
inner  luop  in  GAIN  and  COV  during  "regular" 
data  intervals.  During  the  "last"  data  interval 
output  will  occur  at  the  end  of  MIL  times  through 
the  inner  loop. 

4/(312.  F10.  4) 

1-2 

ITAPE 

Logical  tape  number  ITAPE 

3-4 

NTAPE 

Logical  tape  number  NTAPE 

5-6 

NDPTS 

Number  of  data  points  (i.  e. ,  number  of  discrete 
times  ADAP  1  outputs  linear  data) 

7-16 

DT 

Sampling  time 

5/(12) 

1-2 

IRUN 

IRUN  =  0  Compute  gairs  and  performance 
n  4  0  Read  in  gains  and  compute 

performance 

i 

i 

t 

i 

l 

i 

i 

i 

t 
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where 


A  is  the  name  of  the  matrix  whose  elements  are  to  be  read 
NROW  is  the  row  dimension  of  the  matrix  A 
NCOL  is  the  column  dimension  of  the  matrix  A 

The  format  used  to  read  the  cards  is  (5(2 J2,  E12. 5)) .  From  one  to  five 
elements  can  be  read  in  per  card.  Each  element  is  preceded  by  its  row  and 
column  index.  The  format  is  shown  in  Table  XX. 


Table  XX.  Card  for  Matrix  Input  Subroutine  INPT, 
Format  [5(212,  E12. 5)] 


Column 

Quantity 

Description 

1-2 

ID(1) 

Row  index  of  1st  element 

3-4 

JD(1) 

Column  index  of  1st  element 

5-16 

’.'0(1) 

1st  element 

17-18 

ID(2) 

Row  index  of  2nd  element 

19-20 

JD(2) 

Column  index  cf  2nd  element 

21-32 

YD(2) 

2nd  element 

33-34 

ID(3) 

Row  index  cf  3rd  element 

35-36 

JD(3) 

Column  index  of  3rd  element 

37-48 

UD(3) 

3rd  element 

49-50 

ID(4) 

Row  index  of  4th  element 

51-52 

JD(4) 

Column  index  of  4th  element 

53-64 

YD(4) 

4th  element 

65-66 

ID(5) 

Row  index  of  5th  element 

67-68 

JD(5) 

Column  index  of  5th  element 

69-80 

YD(5) 

5th  element 
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A  blank  card  is  used  to  terminate  the  reading  o'  the  elements  of  a 
matrix.  When  the  subroutine  INPT  senses  a  blank  card,  it  returns  control  to 
the  calling  program.  The  blank  card  moat  appear  in  the  data  deck  even  if  no 
data  is  to  be  read  into  the  matrix.  In  other  words  for  every  call  to  the  sub¬ 
routine  INPT  a  blank  card  must  appear  in  the  data  deck. 

Following  the  cards  for  the  matrices  Hj,  Pj,  Q,  Wj,  W2,  and  H2,  two 
cards  are  read  (see  Tables  XXI  and  XXII).  These  cards  contain  integer  data 
which  is  read  into  the  integer  vector  ISHUF  in  the  subroutine  DATAGEN. 

The  vector  ISHUF  is  used  to  " sh’iffle"  the  linear  data  after  it  is  read  from  a 
permanent  disk  file  designated  by  ITAPPF  and  before  it  is  written  on  a 


Table  XXI.  First  Card  for  ISHUF,  Format  (2112) 


Column 

Quantity 

Description 

1-2 

ISHUF(l) 

State  vector 

components  of 

"standard  or 

der"  which  is  to  be  1st  component 

3-4 

ISHUF(2) 

2nd  component 

5-6 

ISHUF(3) 

3rd  component 

7-8 

ISHUF(4) 

4  th  component 

9-10 

ISHUF(5) 

5th  component 

11-12 

ISHUF{6) 

6th  component 

13-14 

ISHUF(7) 

7th  component 

15-16 

ISHUF(8) 

8th  component 

17-18 

ISHUF(9) 

9th  component 

19-20 

ISHUF(IO) 

10th  component 

21-22 

ISHUF(ll) 

11th  component 

23-24 

ISHUF(12) 

12th  component 

25-26 

ISHUF(13) 

13th  component 

27-28 

ISHUF(14) 

14th  component 

29-30 

ISHUF(15) 

15th  component 

31-32 

ISHUF(16) 

16th  component 

33-34 

ISHUF(17) 

17th  component 

35-36 

ISHUF(18) 

18th  component 

37-38 

ISHUF(19) 

19th  component 

39-40 

ISHUF  (20) 

1 

f  20th  component 

41-42 

ISHUF(21) 

Control  vector  component  of 

"standard  order"  which  is  to  be  1st  component 
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Table  XXII.  Second  Card  for  ISHUF,  Format  (2112) 


Column  Quantity 

1-2  ISHUF(22) 


_ Description _ 

Control  vector  component  of 

"standard  order"  which  is  to  be  2nd  component 


9-10 

11-12 

13-14 

15-16 


ISHUF(23)  3rd  component 

ISHUF(24)  4th  component 

ISHUF(25)  5th  component 

ISHUF(26)  6th  component 

ISHUF(27)  7th  component 

ISHUF(28)  W  8th  component 

ISHUF(29)  Column  of  mean  input  matrix 

of  "standard  order"  which  is  to  be  1st  column 


17-18 

19-20 

21-22 

23-24 

25-26 

27-28 


ISHUF(30) 

ISHUF(31) 

ISHUF(32) 

ISHUF(33) 

ISHUF<34) 

ISIiUF(35) 


2nd  column 
3rd  column 
4th  column 
5th  column 

t  8th  column 

Disturbance  vector  component 

cf  "standard  order"  which  is  to  be  1st  component 


29-30 

31-32 

33-34 

35-36 


37-38 

39-40 


ISHTJF(36) 
ISHUF{37) 
ISHUF(3  8) 
ISHUF(39) 

ISHUF(40) 

ISHUF(41) 


2nd  component 
jrd  component 
4  th  component 

Mean  wind  vector  component 

of  "standard  order"  which  is  to  be  1st  component 


2nd  component 
3rd  component 
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scratch  disk  file  designated  by  ITAPE.  Forty-one  integer  numbers  are  read 
into  the  vector  ISHUF.  The  first  twenty  give  the  reordering  of  the  state  vec¬ 
tor,  the  next  eight  give  the  reordering  of  the  control  vector,  the  next  six 
give  the  reordering  of  the  mean  wind  input  matrix,  the  next  four  give  the 
reordering  of  the  disturbance  vector,  and  the  last  three  give  the  reordering 
of  the  mean  wind  input  vector.  All  of  the  reordering  is  relative  to  the 
"standard  order"  which  is  used  in  the  linearizing  program  A  DAP  . 

The  next  cards  in  the  data  deck  depend  on  the  input  parameter  IRUN  (the 
fifth  card  in  the  data  deck).  If  IRUN  ^0  the  program  expects  to  read  in  the 
time  varying  gain  matrix  KV  backward  in  time.  This  is  accomplished  by 
reading  N  values  of  the  gain  matrix  (where  N  =  NDPTS,  i.  e. ,  the  number  of 
data  points)  and  writing  these  values  on  a  scratch  oisk  file  designated  by 
NTAPE.  The  N  values  represent  the  gain  matrix  KV  at  the  following  dis¬ 
crete  time  points:  tj.  (release  time),  Ltr],  Ctr]-1,  [tr]-2,  ...,  0.  (The 
bracket  function  fXJ  is  the  largest  integer  such  that  X  £  [X]. )  It  should  be 
mentioned  that  the  program  expects  the  gains  to  be  in  the  "shuffled"  order 
(i.e.,  compatible  with  the  shuffled  state  and  control  vector). 

If  IRUN  =  0  the  program  will  not  expect  to  read  the  gain  matrix  KV.  In 
either  case  (i.e. ,  IRUN  4  0  or  IRUN  =  0),  the  last  cards  in  the  data  deck 
will  be  the  initial  value  of  the  state  covariance  matrix  XQ.  It  should  be  men¬ 
tioned  that  both  the  gain  matrices  and  the  state  covariance  matrix  data  is 
read  by  the  subroutine  INPT.  Figures  48  through  55  show  examples  of  the 
card  data,  and  Figure  56  shows  the  entire  data  deck. 


Permanent  Disc  File  Data  Input 

The  data  on  permanent  disc  file  is  the  linear  data  for  the  a/c  and  is 
generated  by  program  ADAP  1.  The  data  consists  of  the  matrices  F,  Gj, 
G2,  G3,  Hp,  arid  Vw  at  the  discrete  times  0,  1,2,  ....  [tj.],  tr  (where  tj,  is 
the  release  time  and  [X]  is  the  bracket  function) .  The  total  number  of  points 
is  given  by  the  input  parameter  NDPTS.  The  matrices  for  each  data  point 
are  read  from  the  permanent  disc  file  designated  by  ITAPPF.  The  data  is 
then  "shuffled"  and  written  on  a  scratch  disc  file  designated  by  ITAPE. 
Access  to  the  permanent  disc  file  is  achieved  by  the  following  control  card: 

COLUMN  1 

I 

ATTACH,  TAPE8,  XXXX,  ID  =  DYYYYYY. 
where 

XXXX  =  CATALOG  NAME 

YYYYYY  =  CATALOG  NUMBER 

The  associated  catalog  control  card  which  is  used  in  ADAP  1  is: 

CATALOG,  TAPE7,  XXXX,  RN  =  1,  ID  «  DYYYYYY 
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Figure  52.  Data  Card  5 


Figure  53.  Example  Data  Card  for  Matrix  Input  Subroutine  INPT 
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Figure  54.  First  Data  Card  for  Shuffling  Vector  ISHUF 


Figure  55.  Second  Data  Card  for  Shuffling  Vector  ISHUF 
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DATA  CARDS  FOR 
MATRIX 


BLANK  TO 
TERMINATE 
'READING 
COVARIANCE 
MATRIX  X. 


GAIN  MATRIX  KV  AT  0 


GAIN  MATRIX  KV  AT  [g  - 

GAIN  MATRIX  KV  AT  t,  _ 

SECOND  DATA  CARD  FOR 
SHUFFELING  VECTOR  ISHUF " 

FIRST  DATA  CARD  FOR  — ■ 
SHUFFELING  VECTOR  ISHUF 


THESE  CARDS 
ARE  NOT  IN 
DECK  IF 
iRUN=  0 


DATA  CAROS  FOR  MATRIX  H? 


DATA  CARDS  FOR  MATRIX  W^— 


DATA  CARDS  FOR  MATRIX  Wj- 


DATA  CARDS  FOR  MATRIX  Q 


DATA  CARDS  FOR  MATRIX  0, 


DATA  CARDS  FOR  MATRIX  H, 


-BLANK  TO  TERMINATE  READING  H2 


-BUNK  TO  TERMINATE  READING  W2 


-BUNK  TO  TERMINATE  READING 


-BLAHX  TO  TERMINATE  READING  Q 


-BUNK  TO  TERMINATE  READING  0, 


-BUNK  TO  TERMINATE  READING  Hj 


fTTAPE,HTAPE,NDPTS.  DTJ  ♦—CARD  5 

(KmE.NRS.NRE.NFREQ  I  - CARD  4 

fNRT  NM,MO,MIUMIR  I  - CARDS 

*NX, NR, NIL  HN  \*~ - CARD  2 

- - CARD  1 


Figure  56.  ADAP  2  Input  Data  Deck 
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OUTPUT  DESCRIPTION 


Program  ADAP  2  provides  both  printed  output  and  punched  card  output. 
Printed  Output 

Printed  output  occurs  in  four  places  in  program  ADAP  2  --  in  the  main 
program,  subroutine  GAIN,  subroutine  COV,  and  subroutine  ESTE. 

Main  Program  Printed  Output  —  All  of  the  input  parameters  on  the  first  five 
input  data  cards  sure  printed  out.  These  parameters  are: 

Card  Parameters 

1  NX,  NR,  NU.  NW 

2  NRT,  NM,  MO,  MIL,  MIR 

3  NME,  NRB,  NRE  NFREQ 

4  ITAPE,  NTPAE,  NOPTS,  DT 

5  IRUN 

The  last  printed  output  in  the  main  program  is  the  weighting  matrix  Q, 
which  is  printed  by  a  call  to  the  matrix  print  subroutine  MP. 

The  calling  sequence  for  the  matrix  print  subroutine  is 

CALL  MP  (II,  JJ,  I,  J,  A,LW) 

where 

II  is  row  dimension  of  the  matrix  A 
JJ  is  column  dimension  of  the  matrix  A 
I  is  the  number  of  rows  of  4  to  be  printed  I  ^  II 

J  is  the  number  of  columns  of  A  to  be  printed  J  s  JJ 

A  is  the  name  of  the  matrix  to  be  printed 
LW  is  the  output  tape  number 
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GAIN  Subroutine  Printed  Output  -  -  If  the  input  parameter  IRUN  equals  zero, 
subroutine  (jAlN  is  entered  to  compute  the  time- varying  feedback  gain  KV. 

If,  in  addition,  the  input  parameter  NM  is  not  zero  the  deterministic  input 
vector  F  will  be  computed.  If  the  order  of  the  control  vector  is  NU  and  the 
order  of  the  state  vector  is  NX  then  the  NU  components  of  the  deterministic 
input  vector  F  will  be  stored  as  the  NX+1  element  of  each  row  of  the  gain 
matrix  KV.  Printed  output  of  the  gain  matrix  KV  and  the  deterministic  input 
occurs  at  the  following  discrete  times:  tr  (release  time),  rtr],  rtr]-l, 
[tr]-2,  . . . ,  0.  (i.e. ,  the  gains  come  out  backward  in  time).  The  matrix 
print  subroutine  MP  is  used  to  print  out  on  NU  by  NX+1  matrix  at  each  of  the 
above  discrete  times.  The  extra  component  in  each  row  as  explained  above, 
is  one  of  the  NU  components  of  the  deterministic  input  vector. 

COV  Subroutine  Printed  Output  -  -If  the  input  parameter  NM  is  not  zero,  the 
printed  output  in  subroutine  COV  consists  of  the  diagonal  elements  of  the 
response  covariance  matrix  S,  the  mean  response  vector  R,  and  the  state 
covariance  matrix  X  at  the  following  discrete  times: 

1,  2,  ...  [t  1,  t  (release  time)  (i.e.,  forward  in  time), 
r*  r 

The  matrix  print  subroutine  MP  is  used  to  print  the  state  covariance  matrix 
X.  If  the  input  parameter  NM  is  zero,  R  will  not  be  printed. 

ESTE  Subroutine  Printed  Output  --If  the  input  parameter  NME  is  not  zero, 
the  subroutine  ESte  is  entered  and  the  error  covariance  matrix  PN  and 
estimator  gains  L  are  computed  and  printed  at  the*  same  discrete  times  as 
the  diagonal  elements  of  the  response  covariance  matrix  S  and  the  state 
covariance  matrix  X.  Both  the  gains  L  and  the  error  covariance  matrix  P 
are  printed  by  the  matrix  print  subroutine  MP. 


Punched  Card  Output 

Punched  output  occurs  at  two  places  in  program  ADAP  2,  in  subroutine 
GAIN  and  in  subroutine  COV. 

GAIN  Subroutine  Punched  Output  --  The  NU  by  NX+1  gain  matrix  Kv  is 
punched  at  the  same  time  it  is  printed.  The  subroutine  OUTP  is  used  to 
punch  matrices.  The  calling  sequence  for  the  subroutine  OUTP  is 

CALL  OUTP  (II,  JJ,  I,  J,  A,LP) 
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i 

i 

{ 


where 

II  is  the  row  dimension  of  the  matrix  A 
JJ  is  the  column  dimension  of  the  matrix  A 
I  is  the  number  of  rows  of  A  to  be  punched 

J  is  the  number  of  columns  of  A  to  be  punched 

A  is  the  name  of  the  matrix  to  be  punched 
LP  is  the  punch  tape  number 

It  should  be  pointed  out  that  subroutine  OUTP  punches  only  the  nonzero  ele¬ 
ments  of  the  matrix  A. 

COY  Subroutine  Punched  Output  -  -  The  value  of  the  state  covariance  matrix  X 
is  punched  at  the  release  time  tr.  The  punch  subroutine  OUTP  is  used  to 
punch  the  matrix  X. 


ADAP  2  PROGRAM  DESCRIPTION 


ADAP  2  MAIN  PROGRAM  ' 

ADAP  2  is  the  main  program  for  the  optimization  of  discretized  time 
varying  systems.  Its  ~*~ucture  is  very  simple.  At  the  beginning  of  the  pro¬ 
gram  some  parameters  are  set  and  some  parameters  are  read  in  through 
cards,  and  their  contents  are  printed  out  for  checking  purpose.  Then  all 
matrix  locations  and  the  three  matrix  scratchpads  are  cleared.  Subsequently, 
some  of  the  system  matrices  and  one-half  of  the  weighing  matrix  Q  are  read 
in  through  cards.  The  other  half  of  the  symmetric  weighting  matrix  Q  is  set, 
and  the  whole  matrix  is  printed  out  for  checking.  Then  the  subroutine 
DATAGEN  is  called.  This  subroutine  shuffles  the  linear  data,  and  inserts 
some  of  the  matrices  read  through  card  input  and  stores  them  in  a  scratch  disc 


At  this  point  the  linear  data  is  ready  for  use.  Subroutine  CaLLSUB  is 
called.  Depending  upon  whether  the  controller  gains  are  to  be  computed  or  to 
be  input  through  cards  (IRUN  flag),  CALLSUB  calls  the  pertinent  subroutines. 
After  the  execution  of  these  subroutines  the  program  control  returns  to  main 
and  stops. 

The  flow  diagram  of  Program  ADAP  2  is  shown  in  Figure  57  and  the  pro¬ 
gram  listing  in  Figure  58.  Symbols  are  listed  in  Table  7'XIII. 

All  subroutines  in  pregram  ADAF  2  are  listed  and  briefly  described  in 
Table  XXIV. 


f 

j 

5 


ain  Program  Flow 


162 


Figure  57.  ADAP  2  M 
Diagram 


PROGRAM  ADAP2( INPUT *0UTPUT*PUNCH*TAPE5»INPUT.TAPE9«0UTPUT*TAPE3«PU 
lNCHcT4PE4#TAPE6»TAPE7»TAPE8) 

COMMON  A(17*17)*DA(17.17)»81(17*4)*DB1U?»4)»B2L7»3)*DU2<17*3) 
COMMON  BPB<4.4>tDQD(4*4)*Hl(21»l7)*DHl{21.17>*Dl(2i»4>.DDl(21*4) 
COMMON  02(21*3) *002(21*3 )*PV(17*17I»XV|4*18)»FV(4)»GN(17) *AD (17) 
COMMON  VW(3)  *S1( 21*21) *S2(2l *21) *53(21 *21) *BP(4*17) *00(4*21 ) 
COMMON  SUM(4»4)*KWA(4)»Q(21»21) *83 < 17*3 > *0B3( 17 *3) »DXV (4*18 > 

COMMON  NX*NR*NU*NW*NRT»NM*LW»LR*MO»Ml»DT»MlL»M!R*NFREQ*ITAPE».tTAPE 
COMMON  XX(17)  *VY(  17)  *:;(  17*17)  *RX(21»1).R(  21*1)  *wi  (3*3)  *W2(  12*12) 
COMMON  W3(3*12)*H2(12»17)*RL(17»12) 

COMMON  NME»NRE*NRB*0FV(4)*DVW(3) 

REAL  XV 

LW«9 

LR-5 

XTAPEaA 

ITAPPF«8 

NXM-17 

NRM-21 

NUM-4 

NWM«3 

NMM«12 

READ ( LR • 1 ) NX  »  NR  »NU ♦ NW 
1  F0RMAK4I2) 

READ(LR»3)NRT.NM, M0.M1L *MIR 

3  FORMAT (314) 

READ(LR*4)NME,NRB.NRE.NFREQ 

4  F0RMAT14I4) 

READ ( LR . 5 ) I T APE .NTAPE  *NOPTS»OT 
READ( LR,2Q) 1  RUN 
20  FORMAT! 12) 

WR I TE ( LW , 1930 ) NX ,NR  »NU *NW 
WR1TE(LW.1931)NRT*NM,M0.MIL»M1R 
WRITE(LW.1932)KME.NRB.NRE.NFREQ 
WRITE(LW.1933)ITaPE»NTAPE»N0PTS*DT 
WRI TF (LW.1934 ) I RUN 

1930  FORMAT* 1H1/7X.4H  NX-I2.4H  NR-I2.4K  NU«I2,4H  NW-I2//) 

1931  FORMAT ( 7X*5H  NRT«I2»4H  NM-I2»4H  M0«12»5H  MIL-12.5H  MIR-12V) 

1932  FORM*r(7X.5H  NME-I2*5H  NRB-I2.5H  NRE»I2*7H  NFREQ«I2//) 

1933  FORKAT(7X*7H  ITAPE«I2»7H  NTAPE«I2»7H  NDPTS»I2*4H  DT«F10,4//) 

1934  FORMAT ( 7X.6H  IRUN-12) 

NDPTS1-NDPTS+1 

5  FORMAT! 31 2»F1 0*4) 

DO  10  I»1*NXM 
GN(I>0* 

AD(I)«0* 

XX(I)*0* 

YY(I)-0* 

DO  1T00  )«1»3 
B2(!*J)»0. 

DB2U  *J)«0. 

1700  CONTINUE 

DO  11  J-l.NUM 
Bl( I*J)»0. 

DB1(I»J)»0. 


Figure  58.  ADAP  2  Main  Program  Input/Output  Listing 


bp(j»i)*o. 

11  CONTINUE 

DO  1600  J»1»NWM 

B3(I#J)»C. 

DB3(!*J)«0. 

1600  CONTINUE 

DO  12  J-l.NXM 
AC i * J)«0* 

DAC I  * J)*0* 
PVCItJl«0. 

12  CONTINUE 

DO  1601  J»1 »NRT 
H2CJ»I)«0, 

BUT  »  J)*0» 

1601  CONTINUE 
10  CONTINUE 

DO  1500  I-l.NRM 
DO  1701  J»l*3 
D2(ItJ}<*0« 

DD2C!  *0. 

1701  CON • iNUc 

DO  2  71 f  J-J*UXM 
HlCtkJt-'  0, 

DH1 ( I  * J) *0« 

1717  CONTINUE 

DO  1501  J>1»NUM 
D1C I»J)*0« 
DD1CI*J)«0. 
DQCJ»I)-0. 

1501  CONTINUE 

DO  1503  J*l* NRM 
SitI»J)*0. 

S2 ( I t J)»0. 

S3(I»JJ»0. 

Q< I *J)*0» 

1503  CONTINUE 
1500  CONTINUE 

NXM1-NXM+1 
DO  1606  J*1 »NUM 
DO  1606  I»l»NXMl 
XVCJ.D-O* 
DKVCJ.I)»0. 

1606  CONTINUE 

DO  1607  I«l»3 

VW(I)«0* 

Dvwm**o. 

1607  CONTINUE 

DO  1604  l »1 » NWM 
DO  1604  J-1»NRT 
W3C I*J)»0. 

1604  CONTINUE 

DO  1603  I «1 *NRT 
DO  1603  J-l.NRT 
W2( I*J)»0. 


1603  CONTINUE 

DO  22  1*1, NWM 
DO  22  J*l,NWM 
22  Wl(I,Ji*0. 

DO  1605  I*1»NRM 
RXC!,1)*0. 

R( I ,1 )*0* 

1605  CONTINUE 

CALL  INPT(H1*NRM»NXM) 

CALL  INPTCDl »NRM*NUM) 

CALL  INPTCO*NRM*NRM) 

CALL  INPT (W1 «NWM,NWM) 

CALL  I NPT ( W2  • NMM, NMM ) 

CALi.  INPT<H2,NMM,NXM) 

DO  1702  I»1*NRE 
DO  1702  *)■!  *NRE 
OCJ.D-QCI.J) 

17C2  CONTINUE 

WRITECLW.1801) 

1801  FORMAT! 1H1/7X.17H  WEIGHTING  MATRIX/) 
CALL  MPCNRMf NRM*NR*NR»0*LW) 

CALL  DATAGENCITAPPFtNDPTS) 

CALL  CALLSUB(NDPT$,XTAPF»IRUN) 

STO°  77 
END 


Figure  58.  ADAP  2  Main  Program  Input/Output  Listing  (concluded) 
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- - - .  ittiixy 


Table  XXIII.  List  of  Symbols  for  ADAP  2  (DISCOP) 


MIL  48  X  Number  of  times  inner  loop  is  executed  for  last  data  point 

in  subroutines  COV  and  GAIN 


17  x  4  array  which  contains  current  value  of  At  Bj(t) 

(i.  e. ,  control  input  matrix) 

17  x  4  array  which  contains  value  of  difference  for  At  B,(t) 


Table  XXIII.  List  of  Symbols  for  ADAP  2  (DISCOP)  (continued) 


Table  XXIV.  ADAP 


TDINVR  Matrix  invert 


■  '■f  ’PVV f«  W''*' 


ADAP  2  BASIC  SUBROUTINES 
Subroutine  CALLSUB 


Subroutine  CALLSUB  calls  all  the  pertinent  subroutines  depending  upon 
the  flag  IRUN.  If  IRUN  =  0  it  comp  ites  optimal  controller  gains.  If  IRUN  t  0, 
it  bypasses  the  controller  gain  computations  and  the  necessary  data  manipu¬ 
lations  for  it.  It  reads  the  gain  matrix  through  cards.  The  subroutine  flow 
chart  is  shown  in  Figure  59  and  its  program  listing  is  Figure  60. 


Subroutine  GAIN 


Subroutine  GAIN  implements  the  analysis  given  in  Section  IX  of  Volume  1. 
It  generates  the  costate  matrix,  the  mean  control  input  and  the  optimal  con¬ 
troller  gains  as  a  function  of  backward  time.  There  are  two  basic  loops  in 
it:  integration  loop  (DO  200),  and  data  update  loop  (DO  100). 

At  each  data  point  including  the  release  time  data  point  the  gains  are 
printed  out  and  also  are  punched  into  cards. 

The  subroutines  flow  chart  is  shown  in  Figure  61  and  the  program  listing 
in  Figure  62. 


Subroutine  COV 


Subroutine  COV  implements  the  analysis  given  in  Section  IX  of  Volume  I. 
It  generates  the  estimation  error  covariance  matrix,  the  optimal  estimator 
gains,  the  mean  response  and  the  state  covariance  and  the  response  covari¬ 
ance  as  a  function  of  forward  time.  It  prints  out  these  quantities  at  three 
specified  time  points.  At  the  final  time  point  (i.  e. ,  the  release  timet  the 
the  state  covariance  matrix  is  punched  into  cards  for  subsequent  use  by 
ADAP3.  The  estimator  gains  and  the  estimation  error  covariance  are  ob¬ 
tained  by  calling  subroutine  ESTE  if  the  flag  NME  t  0.  It  has  two  major 
loops,  data  update  loop  (DO  100)  and  integration  loop  (DO20C). 

The  subroutine  COV  flow  chart  is  shown  in  Figure  63  and  the  program 
listing  in  Figure  64. 


Subroutine  ESTE 

Subroutine  ESTE  implements  the  analysis  given  in  Section  IX  of  Volume  I. 
It  generates  the  covariance  of  estimation  error  and  the  optimal  estimator 
gains  it  prints  out  the  estimator  gains.  Its  flow  chart  is  given  in  Figure  65 
and  its  program  listing  in  Figure  66. 
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Figure  59.  Subroutine  CALLSUB  Flow  Diagram 
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SUBROUTINE  CALLSUB JR0PTS#KTAPE*1RUN^  ^ »J) 

COMMON  Al 17»lTI»OAl 17*17 »D01l21*Al 
COMMON  0p*^»l  t^it^UtiltrJllZaiiUviAttGNUTI.AOaTI 

COMMON  W3ISfl2»*H2ll2*17l*BU17*12) 

COMMON  NME*NRE*NRB*OEVlAl»OVWI3) 

NX1»NX+1 
NDPT$l«NOPTS*l 
IFURUN.NE.O*  GO  fO  15 
CALL  REVSINOPTSI 
CALL  OlFBCCN0PTS*0> 

CALL  GAIN 

CALL  0|fGIXTAPE*NOPTS) 

CALL  REVSfNOPTSl) 

CALL  ROWT(NTAPE*ITAPE»NDP7Sl| 

CALL  RFVG«KTAPE*NTAPC*NOPTSl» 

CALL  COV 
RETURN 

15  CALL1 ROUT II TAPE *NTAPE*NOP7S) 

CALL  OIPBCINOPTSfl* 

REWIND  NTAPE 

oo  li  l«:.nopts 

DO  10  1»1*NU 
DO  10  J«1*NX1 

10  XVCI.J)»0« 

WRITE (NTAPE ) C IKVt 1 *J) • J*l*NXl I  *  1*1 *RU> 

11  CONTINUE 
REWIND  NTAPE 

CALL  DIEGIXTAPE.NOPTS) 

CALL  REVG«XTAPF*NTAPE*N0PTS1» 

CALL  COV 

RETURN 

END 


Figure  60.  Subroutine  CALLSUB  Program  Lioting 
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Figure  61.  Subroutine  GAIN  Flo*-  Diagram  (continued) 
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n  rt  r»  r»  n 


SUBROUTINE  SAIN 

COMMON  At  IT  17) *OA( 17*17) *81 ( 17*4) »DB1 ( 17.4 ) .B2( 17.9 ) *DB2( 17*9) 
COMMON  8P8(4*4)  *000(4*4)  *HH2i*l7).DHl  (21*17 )  .01(21. 4)  ?D01(2l  *4) 
COMMON  02(21 *9) *002(21*9) *PV( 17*17) *KV(4*18) *FV(4) *GN( 17) »AD( 17) 
COMMON  VWO)  *  SI  (21  *21)  »S2(21*2!)  *19(21*21)  *BP(  4  *17)  *00(4*21) 
COMMON  SUM(4*4) *KWA<4) *0(21*21) *89(17. 9)*DB9( 17*9) »0KV(4*18) 

COMMON  NX.NR.NU*NW.NRT»NM.LW*LR*MO»Ml»DT.MlL»MlR»NFREQ»ITAPE*NTAPE 
COMMON  XX(17) »YY( 17) »X( 17*17) *RX(21»1) *R(21»1)*W1(9*9) *W2( 12.12) 
COMMON  W9(9*12)*H2( 12*17) *81(17*12) 

COMMON  NME*NRE*NR8cDFV(4)»DVW(9) 

REAL  XV 

LP-3 

NXM-18 

NX1-NX+1 

NUM«4 

READ  IN  TERMINAL  UATA  ANO  FIRST  DIFFERENCE 

READ! I  TAPE M ( A< I »J) *J-1.NX> .!•) .NX) 

READUTAPEM  (Bl(I.J).Jol.NU).I-l.NX) 

READ  (I  TAPE)  ( ( D2  ( I  »J>  *JM  *9 )  *I«1»NX) 

REA0( I  TAPE) ( ( B9( I  * J) • Jal *NW) • I«1.NX ) 

READ!  I  TAPE)  (  (HKI  *J) . J*1*NX) *!»1*NRE) 
READ(ITAPE)((Ol(l.J)»J«l.NU).l«l*NRE) 

REAO(ITAPE)( (02(I*J).J«1.3)»I«1*NRE) 

REA0( I TAPE)VW 

COMPUTE  TERMINAL  P  ANO  6 
00  2  I-l.NX 
GN( I )*0. 

00  2  J-l.NX 

2  PV(I.J)-0. 

00  9  I-i .NR 
00  3  J-l.NR 

3  S1(I.J)«0. 

00  4  1*1 »NX 

t>0  4  J-NRB.NRE 
DO  4  KaNRB.NRE 

4  S1(I.J)«S1(I*J)-*H1(K.1)*0(X»J) 

00  3  1*1 .NX 

DO  5  J-l.NX 
DO  5  X-NRB.NRE 

5  PV(I.J)-PV(I.J)-*S1(I.K)«H1(X*J) 

00  7  I»1*NX 

DO  7  K-NRB.NRE 

7  6N(!)«6N(I)+S1(I.K)*(02(K.1)*VN(1)*02(X*2)*VW(2)+02(K*3)*VW(3)) 

DO  100  L-l.MO 
NNOUT-NFREO 

REAO( I  TAPE) ( ( 0A< I . J) . J»1 *NX ) *1*1. NX) 

READ ( l TAPE ) t ( DB1 ( I • J ) • J«1 »NU ) *  t  »1 . NX ) 

READ ( I  TAPE) ( ( 002(1 .J) *J«1»3) *!*2*NX) 

REAOC ITAPE) ( ( DR3( I » J) »J«1*NW) *1*1 .NX) 

REAOdTAPEH  (0H1(I*J).J«1.NX)»I»1.NRE) 

REAO(ITAPE)( (001(1 »J).J»l.NU)*l»l.NRE) 


Figure  62.  Subroutine  GAIN  Program  Listing 


nn  r*  r*nr» 


fcCADC  I  TAPE)  ( ( (VD2C  ItJ)tJ»l»S)»I*l*NRE) 

RFADCITAPEIOVW 

!?<  L.EO.l)  GOTO  20 

MI»MXR 

GOTO  11 

10  MI-MIL 
NNOUT-MIL 

11  CONTINUE 

DO  200  N-l tMI 

12  CALL  RC0EFIL*N) 

DO  1)  I-ltNU 
DO  13  J»1*NU 
BPS ( I t J)-0« 

13  DQDI ! * J) "0* 

DO  14  !-l*NU 
DO  14  J-1#NX 

np<i#j)-o* 

DO  14  K-1»NX 

14  BP(!»J)>BP(I»J)401(K*I )*°VIK »JI 
DO  15  I-1*NU 

DO  15  J-l »NU 
DO  15  K-1»NX 

15  BPBI 1 »J)-BPB I I ♦ J)+BP( I *K )*B1 IK» J) 

DO  16  I»1 »NU 

DO  16  J*1*NR 
DQ(I.J)«0# 

DO  16  K-ltNR 

16  DOC  I » J)»DO( I • J)+D1 (K»I J*OIK#J) 

DO  17  l-l.NU 

DO  17  J-l.NU 
DO  18  K-l »NR 

16  DQDI 1 »J)»DQDC 1 »J)+DQ( 1 »K)*D1 IK* J) 

17  SUMCI.JJ—  BPBCI»J)-DQDCI»J>*DT 

INVFRT  CRPB+DQOCDT) 

CALL  TDINVRI ISOL# lDSOL»NU*NUtSUH*NUM»KWA»DET ) 
IMCISOL+1DSOU.GT.21  GOTO  301 
GOTO  502 

501  STOP  66 

502  CONTINUE 


r%  r* 


I 

i 

i 

i 

DO  21  K»1*NU  l 

21  KV<I*JI«KVU*J)4SUM(I.X>«S1(K»J>  » 

COMPUTE  DETERMINISTIC  INPUT  FV  * 

IF (NM >22*30* 22 

22  DO  23  I»1*NU 
S1(I.1)»0* 

00  24  J-1»NX 

24  S1(I*1)»S1(I*1)4B1( J*I)»GN(J) 

DO  29  J»1*NX 

25  SlUtn»SlH#n4BPU*J)*(B2U»lI*VWm482IJ.2)*VW{2)4B2IJ*3J#VWC3) 

1) 

DO  26  J-1*NR 

26  Sl(I*l)«Sl(I*l)40T*0QII.J)*(D2(J»l)*VMm+D2U»2>*VW(2>402«J*3)*VW 

mu 

23  CONTINUE 
DO  223  I-l.NU 
EV(I»»0. 

DO  224  J»1*NU 

224  FV<n«FV<I)4$UM<I.J)*Sl(J*l) 

223  KV(I»NX1)-FV<I) 

C  FORM  ( A+BK I  AND  ( H40K ) 

30  CONTINUE 

00  27  I-1*NX 
00  27  J»1*NX 
SKl.J)-A(ItJ) 

DO  27  K»1*NU 

27  S1(I.J)-51(I *J)4B1{I*KH»KV(K*J) 

00  28  I»ltNR 

00  28  J-l.NX 
S2I I »J)«H1(I *  J) 

00  28  K-l.NU 

28  S2< I  * J)*52( I « Jl+01 ( 1 »K) *KV(K« J) 

IF (MM >31*45*31 

C  COMPUTE  6CN) 

31  CONTINUE 

00  29  I-l.NX 

S3( I»1>-B2(I*1)*VM(1)4B2(I*2)«VW(2>4B2(I*3>«VW(3) 

DO  29  J»1*NU 

29  S3( I *1 l«S3( 1*1 )4B1 ( I »J)*FV( J) 

00  40  I«1*NX 

S3 ( I *2 )"GN( I ) 

00  40  J»1*NX 

40  S3( I»2)"S3(I *2)4PV( I *J)*53( J»l>  ; 

DO  41  I»i*NX 

GN( I )*0* 

00  41  J>1»NX 

41  GNt!)*GN(n+Sl(J*I)«S3«J*2)  \ 

DO  42  I«1»NR 

S3(I*1)«D2(I *1I«VW( 1I402( I*2)*VW(2>402(t»3>»VW(3) 

00  42  J»1*NU  ! 

42  S3! l»l)*S3t I *1)401 ( 1 *J)*FV( J)  ' 

00  43  t«l*NR  ;• 


1 

Figure  62 .  Subroutine  GAIN  Program  Listing  (continued)  | 
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S3!I*2)-0. 

00  49  J»lfNR 

43  S3!I*2)>S3II *2)+Q! I»J)«S3!J»1) 

00  44  1-1«NX 

00  44  J»1#NR 

44  GN!I)-GN!I)4DT*S2!J*I)*S3<J»2> 

43  CONTINUE 

COMPUTE  COSTATE  MATRIX  PV<N) 

00  46  I«1*NX 
00  46  J-ltNX 
S3(I.J)«0. 

00  46  X*1*NX 

46  S3!I»J)*S3(I *JI+S1(K*I )4PV!K»J) 

00  47  I«1*NX 

00  47  J»I #NX 
PV!I*J)«0* 

00  47  K«1»NX 

47  PV! I.JJ-PVU »J»+S3( I*K)«S1(K»J) 

00  48  !"1»NR 

DO  48  J*1»NX 
S3! 

00  48  K»1*NR 

48  S3(I«J)>S3(I*J)40(?»K)«S2<K*J) 

00  49  I«1*NX 

DO  49  J»I*NX 
DO  50  K-ltNR 

50  PV!  I  *J)«PV!  I  ♦  JI^S2(  K»I  )*S3!K»J)  *DT 

49  PVIJ*I)-PVII»J| 

IF(N«NE#1)  GOTO  33 
IF<L.E0«1>  GOTO  51 
GOTO  53 

51  WRITE!LW.32) 

52  FORMAT! 1H1/7X.41H  GAINS  AND  DETERMINISTIC  INPUT  AT  RELEASE/) 
CALL  MP(NUM.NXM.NU.NX1»KV»LW) 

WRI TE(NTAPE )((KV(I»J) » J*1»NX1) * !■! »NU) 

CALL  0UTP(4.18.HU*NX1*KV*LP) 

GOTO  200 

53  IF! NNOUT *6T  •  N )  GOTO  200 
NNOUT-NNOUT+NFREO 
WRITE!LWt54» 

54  FORMAT! lHl/7Xt30H  GAINS  AND  DETERMINISTIC  INPUT/) 

CALL  MP«NUM.NXM*NU»NX1*XV.LW) 

200  CONTINUE 

WRITE(NTAPE)! (KV!I»J)tJ»l*NXl)tI«l*NU) 

CALL  0UTP!4.18*NUtNXl»KV»LP> 

100  CONTINUE 
RETURN 
END 


Figure  62.  Subroutine  GAIN  Program  Listing  (concluded) 
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.fp- 


DO  200  N  =  1,  Ml 


COMPUTE 

10  a: 

S2  =  AXA' 

COMPUTE  12,1 

uui - 

Sj  =AXA'+6j—  8j ' 


TEST  IF  NM  =  0 


COMPUTE  lii. 

S3=  (BPBXBl)' 


COMPUTE 

S2  =  S2+(B1)(S3 

HE 

COMPUTE 

S3  =  (BPHA) ' 

dL 

COMPUTE  [27| 
SI -(Uli  (S3) 


COMPUTE  11 

VY  =  (B2KVWJ  +  (A)iXX) 


COMPUTE  [16_ 
SI  =  (FV)  +<KV)tXX> 


_ |  UPOATEO-MEAN-STATE 

COMPUTE  [It 

YY  =  t(A)00<)  +  (B2)(VW)1  +(B1X(FV)  1  (KVXXX)l 


|  S3  =  iSl)'  ] 

rr^— r-, 

COMPUTE  [2£ 

S2  -  S2  ♦  SI  +  S3 

-  T  / 

(TEST  IF  N  =  NHOUT  ) 
I  YES 

(TEST  IF  NM  =  0  ) 


_ ill _ 

TEST  IF  NMc  =  0 


COMPUTE  [32_ 

R  =  (D2KWV)  +  OI1XXX) 


COMPUTE  I  19 
X  =  (X  -  PV) 


CONTINUE 


COMPUTE  |22,23 

BP  =  X  <X-P> 

BPB  =  K  0(-P)  K' 

_ 

1 

COMPUTE 
j!  =  FV-MKVHX 

1? 

.  .71  _ 

COMPUTE 

R  =  R  +  (Q1XS1) 

Hi 

CONTINUE 

IT 


Figure  63.  Subroutine  COV  Flow  Diagram  (continued) 
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Figure  63.  Subroutine  COV  Flow  Diagram  (concluded) 
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subrou7v?  cov 

COMMON  -  > !  /• 17 ) »DA) 17*17) «B1 )  17*4) *DBl (17*4) *B2) 17*3 ) *082(17*3} 
COMMON  .  .<4*4>»D0D)4*4>»Hl)21*17)»DHl)2l.l7)»Dim,4>*0Dl)21.4) 

'  'JMMON  D2t21*3)»DD2<21»3)»PV(17*17)*KV(4»18  FV)4) *GN) 17 > *AD) 17) 

COMMON  VW(3)  *S1 ( 21 t 21 ) *52)21*21) *S3( 21*21) *BPC 4*17) »00t4#2l > 
COMMON  SUM)4*4) *KWA<4 > *0(21*21 ) *83)17*3) *DB3) 17*3) *DKV)4*18> 

COMMON  NX»NR»NU»NW*NRT  *NM»LW»LR*M0*MI *DT  »MIL  *MIR *NFREQ* ITAPE *NTAPE 
COMMON  XX)lt ) *YY(17)*X(17»17>»RX(21»  )*R)21»1) *W1( 3*3) *W2( 12*12) 
COMMON  W3)3* 12) *H2) 17*17) *BL) 17*12) 

COMMON  NME»NRE*NRB*Dl  7<4)*DVW(3) 

REAL  XV 
R'  MINO  ITAPi 
.IE'!  TNI)  NTAPE 
LP»? 

RD\  >1-  <• ■  >* 

J  1  '.‘.RAYS 

j. 

D  ?  >»i*NX 
X...  t  -0* 

YY(J)-0. 

DO  7  J»1»NX 
X)I*J)«0* 

7  PV(I*J)«0. 

1  CONTINUE 

CA*A  INPTCX*17*17) 

NX1«NX+1 

!F(NME)501*S00*5C1 

501  DO  502  !>1*NX 
DO  502  J»1*NX 

502  PV(I,J)-XU.J) 

500  CONTINUE 

C  READ  INITIAL  DATA  AND  FIRST  DIFFERENCE 
C 

READ! I TAPE) ) (A(ItJ) *J«l *NX) *I*1*NX) 

READ) ITAPE) ( ( Bill »J) »J«1.NU) »I«1*NX) 

READ) I  TAPE) 4  C  B2  C I  * J)» J«1 *3 ) *I*1*NX) 

READ! ITAPE) C  C  B3< I  •  J)  *JM  *NW)  *I»1*NX) 

READ) I TAPE)) (HI)  • » J) »J*1»NX) »I«1*NRE) 

READ)  ITAPE) )  )D1«  .  #.J)  *J«1*NU)*I«1»NRE) 

READ) ITAPE) ( (021 1 • J) «J«1 *3 )*I»J*NRE) 

READ) I TAPE )VW 

READ ) NTAPE ) ) )XV(I*J)*Ja] »NX1) *1«1 *NU> 

DO  333  I*1*NU 
333  FV(I)-XV(I*NX1) 

DO  4  I«1*NX 
AD) !)-A(I*I> 

4  A)  I  *1  )<*AD(  I )  +  1* 

DO  100  L<*1*M0 
NNOUT-NFREO 

READ)  ITAPE) )  (DA)  I  *J)  »J<*1  »NX)  *I«1*NX) 

READ) ITAPE) (IDB1I I *J)»J>1*NU)»I*1»NX) 

READ) ITAPE) f ( DR2) I » J) *J«1*3) »t”l»NX) 

READ) 7  TAPE) ) (DB3{ 1 *J) *J-l*NW)»l«l ,NX) 


Figure  64.  Subroutine  COV  Program  Listing 


184 
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\ 
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i 


liah t  -fi.14 . 


REA0< ! TAPE ) ( ( DHl ( t t J) t J-l »NX » . 1-1 ,NRE ) 

READ ( I TAPE ) ( (DDK  I • J) t J*1 #NU> » 1-1 »NRE ) 

READ! I  TAPE M <  DD2( 1 1 J<  t J-l t3 >  »I-ltNRE > 
READUTAPEIDVW 

R£AD<  NTAPE ) ( ( DKVt ! * J) ? J-l »NX1 )  1 1-1 *NU) 

DO  3  1-1 tNU 
3  DFVm-DKVIItNXl} 

IFCUEO.KO)  GOTO  5 
MI-MIR 
GOTO  6 
3  MJ-MIL 
NNOUT-M1 
6  CONTINUE 
DO  200  N-1#MI 
C 

C  COMPUTE  AXA  ♦B3WB3/0T 
C 

DO  10  I-l *NX 
DO  10  J-ltNX 
Sl(I*J)-0. 

DO  10  K-l *NX 

10  SKI t J t-SK  1  t J )+X  f I »K )*A( J tK) 

00  11  I-1«NX 

DO  11  J-ltNX 
S2( I  t J)-0» 

DO  11  K-ltNX 

11  521  |»J)«S2(!  tJ)+AUtK)*Sl(KtJ) 

DO  12  1-1 »NW 

DO  12  J-lfNX 
S3UtJI"0. 

DO  12  K-ltNW 

12  531 I«J|-S3(I t J)4W1( I tK)*B3( JtK) 

DO  13  I-l.NX 

DO  13  J-ItNX 
DO  13  K-ltNW 

13  S2(ItJ)-S2(!tJ)+B3UtK)*S3fK»J)«RDT 
1F(NM) 14t21t 14 

14  CONTINUE 
C 

C  UPDATE  MEAN  STATE 
C 

DO  15  I-ltNX 

YYC I |«B2(I tl )4VW(1 )+B2( I »2 )*VW12  J+B2 ( I t3)*VW(3 ) 
DO  15  J-ltNX 

15  YYU)-YYm+A<!tJI*XXU) 

DO  15  I -1 tNU 
SKltD-FVII) 

DO  16  J-ltNX 

16  Sl(ltl)-5l(I»l)4KV(ItJI«XXtJI 
DO  17  I-ltNX 

DO  17  J-ljNU 

17  VY<I|«YY(n>Bl(ItJl*Sl(Jtl) 

C  FORM  X-P 

21  IF ( NME) 18t20 1 18 


Figure  64.  Subroutine  COV  Program  Listing  (continued) 
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18  DO  19  I***NX 
DO  19  J"l tNX 

19  Xll.JJ-XtI.JI-PVn.J) 

20  CONTINUE 

FINISH  UPDATING  OF  X  IF  A1KXA.AXKB1 .AND  BIXXKB1 

DO  22  !*1»NU 
DO  22  J*1»NX 
9P(!.J»-0. 

DC  22  Kal.NX 

22  BP( I »J)aBP( I *J)+KV{ I .K)*X(K«J) 

DO  23  Ial.NU 

DO  23  J-l.NU 
BPBI I . J)*0« 

DO  23  K-l.NX 

23  BPBII »J)aBPB C I .JJ+BP1 I »K)*KV( J.K) 

DO  24  I-l.NU 

DO  24  J-l.NX 
S3(I»J)«0« 

DO  24  K-l.NU 

24  S3(!*J)>S3(I*J)4BPB(l*K)«BltJ*K) 

DO  25  I-l.NX 

DO  25  J-I *NX 
DO  25  K*lfNU 

25  S2( I»J)"S2(I »J)+B1( I.K)*S3(K«J) 

DO  26  I-l.NU 

DO  26  Jal.NX 
S3t!*J)»0. 

DO  26  Kal.NX 

26  S3! I »J)«S3CI »J)+BP( I.K)*A( J.K) 

DO  27  Ial*NX 

DO  27  Jal »NX 
Sl(I.J)-0. 

DO  27  K-l.NU 

27  SKI  «J)aSl( I  »  J)+B1  ( I  .K)*S3(K.J) 

DO  228  I-l.NX 

DO  228  J-l.NX 
228  S3(  J. I )"S1 ( I  • J) 

DO  28  I-l.NX 
DO  28  Ja! »NX 

28  S2(  I *J)-S2( 1 *  JJ+S1U  »J)+S3(  I »J) 

I F  < NNOUT-H >90.30*90 

30  CONTINUE 
IF<NM)31. 35.31 

COMPUTE  MEAN  RESPONSE 

31  CONTINUE 

DO  32  I-l.NRE 

R( I .1 )«D2( 1  *  1 )*VW( 1 )+D2( I *2)*VW(2 1+D2II *3)*VW(3  > 
DO  32  J-l.NX 

32  R<I.1)-R<!.1 >+Hl(I»J>*XX<J> 

DO  33  1-1. NU 
SKl.lI-FVm 


Figure  64.  Subroutine  COV  Program  Listing  (continued) 
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DO  33  Jal.NX 

33  Sl!Itl)*Sl!I* 1 )4KV( I  * J)*XX ( J) 

DO  34  I*1*NRE 

DO  34  J-l.NU 

34  RtI»l)>ft(t«lUDl(! 

35  CONTINUE 

COMPUTE  RESPONSE  COVARIANCES 

IF(NME»36. 38*36 

36  DO  37  I»1#NX 
DO  37  Jal.NX 

37  XII,J)aXtI.J)+PVII*J> 

38  CONTINUE 

DO  39  I»1*NX 
DO  39  J«1*NRE 
SllI.J)-0. 

DO  39  K-l.NX 

39  SKI  • J) aSl!  I  »  J  )+X  ( I  #K)  *M1  ( J»K  I 
DO  40  I«1*NRE 

RX(I.l)-0. 

DO  40  J»1*NX 

40  RX(I»l)aRX(I»lt4tn<I*J)»SKJ*It 
DO  41  1«1*NRE 

DO  41  J«1*NU 
SKltJJaO, 

DO  41  Kal,HU 

41  SKI  *J)aSll  !  *J)+D1I  I  *K)*6PBIK«J) 

DO  42  I-l.NRC 

DO  42  Jal.NU 

42  RX(  1.1  JaRXd  .1  )+Sl C I  * J)*D1  ( I  •  JJ 
DO  43  Ial,NU 

DO  *3  Jf*l  »NRE 
SKI.JIaO. 

DO  43  K«1*NX 

43  Sl(I.J>aSKI.Jj+8P(I»XI*HKJ»XI 
00  44  Ial,NRE 

DO  44  JaltNU 

44  RXU*l)aRXU»l»+0KItJJ*SKJ»n*2. 
IF! NM) 220*230*220 

220  WRITEILW.201I 

201  FORMAT 1 1H1/7X  »15H  MEAN  RESPONSES//) 
1*1 

WRITE! LW. 204  )L 


211  FORMAT! 8  C  ?H  SI ?» IH-FI0.3  ) ) 
710  CONTINUE 
90  CONTINUE 

IF! NMF) 50*31 *50 

50  CALL  FSTEIN.NNOUT) 

51  CALL  FCOEF1L ) 

DO  52  l-l.NX 
XXIDaWlI) 

DO  5?  J»I«NX 
XI  I *J)>S2II. J) 

52  XIJ*!)aS2(I»J) 

I F I N-NNOUT ) 40 1 .400 . 40 1 

400  NNOUTaNNOUT-fNFREQ 
WRITEILW.510) 

510  FORMAT I1H1/7X.10H  X  MATRIX 
CALL  MPI17.17*NX,NX.X.LW) 

401  CONTINUE 
200  CONTINUE 
100  CONTINUE 

CALL  OUTPI 17  » 17.NX  »NX  »X  »LP 

RETURN 

FND 


WRI TE!LW*203 1 !J*RI J*I )  *J»1*NRE) 

203  FORMAT! 8 1 2H  RI2»lHaE10*3 ) I 

204  FORMAT l 12H  TIME  POINT  I 2//I 
202  CONTINUE 

230  CONTINUE 

WRITEILW.205) 

205  FORMAT! 1H1/7X.21H  RESPONSE  COVARIANCES//) 
!■! 


WR1TEILW.204)L 

WRITEILW.211) !J*RXIJ»I)*Jal*NRE) 


/) 


Figure  64.  Subroutine  COV  Program  Listing  (concluded) 
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SUBROUTINE  ESTF(N*NNOUT) 

DIMENSION  KWAAI17) 

COMMON  A( 17* 17) »DA ( 17*17) *B1 < 17*4) »DB1 I 17*4) *B2( 17*3) *DB2t 17*3) 
COMMON  BPB(4*4)*DQ0(4*4) *H1 (21*17) *0H1(21*17) *01(21*4) *001(21*4) 
COMMON  D2t  21 *3 )*DD2(21*3) *PV(17«17) *KV(4*18)»FV(4) *GN( 17) •  AD (17) 
COMMON  VW(3)  *51(21*21) *S2( 21 *21 ) *53 ( 21 *21 ) »BP( 4*17 ) »OQ( 4*21 ) 
COMMON  SUM(4»4)*KWA(4) *0(21*21) *B3( 17*3)*DB3( 17*3) *DKV(4*16) 

common  nx*nr*nu»nw*nrt*nm*lw*lr*mo»mi.ot»mil*mir*nfreq»itape*ntape 

COMMON  XX( 17 )*VY( 17) *X( 17*17) *RX(21 *1) *R(21»i) *W1(3.3)*W2( 12*12) 
COMMON  W3(3*12)*H2(  12*17) *81.(17 *12) 

COMMON  NME*NRE*NRB*DFV(4)*DVW(3) 

REAL  KV 
NXK=17 
RDT-l./DT 
DO  1  l»l *NX 
DO  1  J«1»NRT 
S1(I*J)«0* 

DO  1  K-1*NX 

1  Sl(I»J)-SltI*J)+PV(I,K)*H2(J»X) 

DO  2  I-l.NRT 
DO  2  J*1 *NRT 


S3 ( t * J)aW2( I *J)*RDT 
DO  3  K«1*NX 


3  S3( I  * J)"S3( I  * J)4H2( I»IQ*S1(K*J) 

2  0( I *J)*S3( I »J) 

CALL  TDINVR( IS0L»IDS0L*NRT»NRT*S3* 
IF(  (IS0L+IDS0D.GT.2)  GOTO  30 
GOTO  31 

50  STOP  66 

51  CONTINUE 
DC  4  I«1*NX 
DO  4  J«1»NRT 
Xd.JI.O. 

DO  5  K.l.NX 

5  X(I»j).X(ItJ)+A(!»K)»Sl(K.J) 

00  4  K«1*NW 


21*KWAA*DET! 


S1(1*J)>0* 

DO  9  K-l.NW 

9  Sit  I»J)«Sl(I  »J)-*B3(  I*K)«W1(K*J)«RDT 
DO  10  I-l.NX 
DO  10  J"!»NX 
DO  10  K-l.NW 

10  PV(I.J)-PV(I.J)+S1(I.X)*B3(J*X) 

DO  11  I»1»NX 


4 


6 


X(I  »JWX(I*J)+B3(  I»K)«W3IK*J)«RDT 
no  &  i«i*Nx 
DO  6  J«1*NRT 
RL(I*J)»0« 

DO  6  K-l.NRT 


BL( I »J)"BL( I  * J)+X( I »K)*S3(X»J)*RDT 
DO  7  I-1*NX 
DO  7  J*1*NX 
S1(I.J)«0* 

DO  7  K«1 *NX 


DO  11  J»1*NRT 
S1(I*J)>0* 

DO  11  K-l.NRT 

11  S1(I»J)»S1(I »J)+BL(I»X)*0(X»J)*DT 
DO  12  I-l.NX 

DO  12  J*I *NX 
DO  13  K»1*NRT 

13  PV( I*J)-PV(I*J)-S1(I.K)#BL(J*K)*DT 

12  PV( J*I)«PV(I»J) 

I F  ( N“*NNOUT  >20*21*20 


7  Sl( I»J)»Sl( ! »J)+A( I *K )*PV(K*J) 
DO  8  I-l.NX 

DO  8  J-I»NX 
PV(I*J)»0. 

DO  8  K-l.NX 

8  PV(I.J)«PV(I *J)+SK I*K)»A(J*K) 
DO  9  I«1»NX 

DO  9  J«1 *NW 


21  CONTINUE 
WRITE(LW»22) 

22  FORMAT! 1H1/7X*16H  ESTIMATOR  GAINS//) 
CALL  MP(17»12*NX»NRT*BL*LW) 
WRITE(LW»31l) 

511  FORMAT ( 1H1/7X » 10H  PH  MATRIX/) 

CALL  MP( 17*17. NX*NX.PV*LW) 

20  CONTINUE 
RETURN 
END 


Figure  66.  Subroutine  ESTE  Program  Listing 
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ADAP  2  DATA  MANIPULATION  SUBROUTINES 
Subroutine  DATAGEN 

Subroutine  DATAGEN  implements  the  analysis  given  in  Section  VI,  Vol¬ 
ume  I.  It  generates  the  shuffled  and  augmented  linear  data.  It  reads  the 
state  component  shuffling  data  and  the  -.riginal  linear  data  stored  in  perma¬ 
nent  disc  file  by  ADAP  1.  It  shuffles  the  data  in  accordance  with  the  shuffling 
indices  and  writes  the  augmented  data  in  a  scratch  disc  file.  Its  flow  chart 
is  shown  in  Figure  67  and  its  program  listing  in  Figure  68. 


Subroutine  SHUF 

Subroutine  SHUF  shuffles  the  matrices  in  accordance  with  the  shuffling 
indices.  It  is  called  by  subroutine  DATAGEN.  The  subroutines  flow  chart 
is  shown  in  Figure  69  and  the  program  listing  in  Figure  70. 


Subroutine  REVS 


Subroutine  REVS  reads  the  shuffled  and  augmented  linear  data  from 
scratch  tape  and  reverses  their  order  with  respect  to  time  points  using  the 
relation 


♦  <V  *  f,tn- V 

It  stores  this  data  into  scratch  tape.  The  backward  time  data  is  used  by 
subroutine  COV. 

The  flow  diagram  of  subroutine  REVS  is  shown  in  Figure  71  and  the 
program  listing  in  Figure  72. 


Subroutine  DIFBC 

Subroutine  DIFBC  reads  in  the  lineai  data  and  computes  the  current  dif¬ 
ferences  from 

Af  <t)  =  [f  (l  -  1)  -  f  (l)-]  (|^) 

and  writes  on  a  scratch  tape.  The  data  updating  uses  this  difference. 

The  subroutines  flow  chart  is  shown  in  Figure  73  and  the  program  listing 
in  Figure  74. 


if-  vKl  * li 


SUBROUTINE  DATAGEN! I TAPPF.NOPTS) 

DIMENSION  FF ( 20*20)  *GG1  < 20*fl )  *GG2t  20*6)  »GG3 C20»4 )  *HH2( 21*12 )*WW<3 
1 )  ♦  I SHUF! 42) 

COMMON  A! 17*17) *DA{  17*17)*Bltl7»4)»DBl(17»4)*B2!  17*3 )*DB2C  17*3) 
COMMON  BPBI4*4)*DQD<4*4)*H1I21*17).DH1!21.17)*DH21*4)*DD1!2!»4) 
COMMON  D2(21»3)»DD2<21»3)*PV(17,17) *KV!4»18) »rv<4) *GN< 17) *AD! 1?) 
COMMON  VW!3)  »Sl!21*2l)*S2!21»21)*S3!21»21t»BP(4*17t  *00(4*21 ) 
COMMON  SUM(4*4) «KWA(4 ) *0(21*21) »B 3(17*3) »0B3( 17*3 ) »DKV! 4*18 ) 

COMMON  NX*NR*NU*NW»NRT*NM*LW*LR*M0»MI*DT*MIL»MIR*NFREQ*ITAPE*NTAPE 
COMMON  XXII?) *VY!17).X! 17*17) »RX! 21*1) *R< 21*1),  Wl< 3*3) *W2! 12*1?) 
COMMON  W3t 3*12 ) »H2! 12*17) *BLl 17*12 ) 

COMMON  NME*NRE*NRB*DFV<4)*DVW(3) 

REWIND  ITAPPF 
READ(LR»1])I SHUF 
11  FORMATI21I2) 

DO  10  L*1*NDPTS 
READ! ITAPPF)FF 
READ! ITAPPF) 66 1 
READ 1 1 TAPPF ) G62 
READI ITAPPF)GG3 
READ! I TAPPF) HH2 


READI ITAPPF) VVW 

CALL  SHUF ( FF  » GG1 »GG2  *GGj *VVW • I SHUF ) 
WRITE! I TAPE) ( ! FF!  I  »  J) • J«1 .NX ) *1*1 »NX ) 
WRITE! I TAPE ) ( (GG1 1 1 *J) »J»i»NU) • I»1 »NX ) 
WRITE(ITAPE) ( (GG2! I *J) • J»i»  3)*I»1.NX) 
WRITE ( I  TAPE ) ! (GG3 1 I *J) » J»1 »NW) * I«1 »NX ) 
WRITE! ITAPE)! <H1(I . J) »J»1*NX ) *I«1 *NRE) 
WRITE(ITAPE) ! !D1!I*J)*J»1*NU)*I«1*NRE) 
WRITE! ITAPE i ! ! D2( I  * J) • J-l *3 ) *I«1»NRE ) 
WR I TE ( I T  APE ) VVW 
10  CONTINUE 

REWIND  ITAPE 

RETURN 

FND 


Figure  68.  Subroutine  DATAGEN 
Program  Listing 


Figure  69.  Subroutine  SHUF 
Flow  Diagram 
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r*  ^  n  r>n  no.-*  r*r»^ 


SUDROUT I NE  SHUF 1 FF • GR1 » Gfi?  »  0G3  » VW ,  I  SHUF ) 

DIMENSION  FF<20»20)*GGH2C*IU»GG?(20*6>»GG3<?f..4)»V'Vl3> 
DIMENSION  0(20*20) ♦ I SHUF (42) 

SHUFFLF  F  MATRIX 

DO  1  1*1*20 
1 1 ■ 1 SHUF ( I ) 

DO  J  J*l»20 
1  D( I *J)*FFI 1 1 *J) 

DO  2  1*1*20 
DO  2  J*1 *20 
JJ-ISHUFIJ) 

?.  FF ( I » J)*D(  I .  JJ) 

SHUFFLF  G1  MATRIX 

DO  3  1*1*20 
1 1  *  I SHUF ( I ) 

DO  3  J*1 *8 

3  D(  I «J)*GG1( ! I »J) 

CO  4  1*1*20 

DO  4  J*1 *8 
J J* I SHUF ( J+?  0 ) 

4  6G1  ( I  *J)*f>(  l  *JJ) 

SHUFFLF  G?  MATRIX 

DO  5  1*1*20 
1 1 » I SHIJF  ( I ) 

DO  4  J*1 .6 
3  D(I*J)*GG2UI  *J) 

^0  6  1*1  *20 
DO  6  J*1 *6 
JJ* ISHUF  C  J+28 ) 

6  GG2 (I »J)*D(I »JJ) 

SHUFFLF  G3  MATRIX 

DO  7  1*1 *20 
I I ■ I SHUF ( I ) 

DO  7  J*1 *4 

7  Dll «J)*GG3( 1 1 » J) 

DO  A  )«1»20 
"0  8  J*1  *4 
JJ*  T  SHUF ( J+34  ) 

8  GG3(ItJ)*DU  tJJ) 

SHUFFLE  VW 

DO  9  1*1*3 
II-tSHUFU+Sa  J 

9  D(I*l)*VW(in 
DO  10  1*1*3 

10  vwm*Dii*i) 

RETURN 
END 


Figure  70.  Subroutine  SHUF 
Program  Listing 


Figure  71.  Subroutine  REVS  Flow 
Diagram 


SUBROUTINE  REVS(NOPTS) 

COMMON  Al  17*171  ,DA(  17.17). 61(  17.4), DB1  ( If, 4  ),Bm7»3>. D62(17. 3) 
COMMON  BPB(4 .4). 000(4.4} *Hl(2l»17)  .DHK21.17)  *01(21.4) .DDK 21  *4) 
COMMON  02(21 .SI .002(21.3). PV(17.17).KV(4.18).PV(4).GN( 17) *A0(17) 
COMMON  VW(3)  .51(21. 21). 52(21.21). 53(21*21). BP( 4.17) *00(4, 21) 
COMMON  SUMI 4.4 ) *KWA( 4) .0(21.21)  .83 ( 17.3)  *'!>B3(  17.3)  »DXV(4,16 ) 

COMMON  NX.NR .NU.NW.NRT .NM.LW.LR.MO.HI »0T &MIL.MIR.NEREQ. I TAPE .NTAPE 
COMMON  XX(17).YY(17).X(17,17)*RX(21.1)»R(21.1),Wl(3.3i,W2(12.12) 
COMMON  W3(3.12).H2(12.17)»BL(17.12) 

COMMON  NM£.NRE*NRB.DEV(4).DVW(3) 

REAL  XV 
REWIND  1TAPE 
REWIND  NTAPE 
DO  1  K-l.NOPTS 
JJ-NOPTS-K.l 
DO  2  L-l.JJ 

READ! (TAPE) I ( A( ! • J) »J«1»NX) .I«i«NX) 
READ(ITAPE)((Bl(!.J).Jal.NU),I»l»NX) 

REAO(ITAPE) ( (B2( I » J) »J"1.3) .l»ioNX) 
REA0(1TAPE)((B3(I.J)»J"1.NH|.!«1.NX) 

READ  ( I  TAPE)  ( (Hid  .J)  *JM.NX)«t«l.NRE) 

REAO(  (TAPE) ( (OKI , J) ,J*1«NU) »!*1.NRE) 
READ(1TAPE)((02(S*J).J«1.3).1-1.NRE> 

READ! I TAPE )VW 
2  CONTINUE 

WRITE (NTAPE) ((A(I.J) *J“1»NX) .1*1 .NX) 

WRITE (NTAPE) ( (61(t.J).J«l»NU)»l*lsNX) 

WRITE (NTAPE) ((B2(1.J) *J«1»3) *I»1»NX) 

WRITE(NTAPE) ( (83(l.J).J«l.NW).l»l*NX) 

W.IITE(NTAPE)  ( (Hl(  I  .J)  ,J«1*NX)  .Jal.NRE) 

WRITE  (NTAPE)  ( (OKI.  J)  *J*1.NU)  »I«lcNRE) 

WRITE (NTAPE) ((D2(I.J) »J«1*3) .l*l»NRE) 

WR ITE( NTAPE )VW 
REWIND  ITAPE 
1  CONTINUE 
REWIND  NTAPE 
RETURN 
END 


Figure  72.  Subroutine  REVS  Program  Listing 
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76,  42,  41 
COMPUTE  '—s — - 

02  *  (02  -  D02XRRDT) 

D1 *  (01  -  001HRRDT) 

HI  *  (HI  -  OHD(RRDT) 


COMPUTE 

VW->(VW-  DVWXRRDT) 


Ezal 


WRITE  ITAPE 

A,  Bl,  B2,  B3,  HI,  01,  02,  VW 


SET  [78,52,53,51 

B2  «  062,  Bl  *  OBI,  83  *  063,  A  -  DA 


SET 

02  *  002,  01  >  001,  HI  *  0H1 


SET  VW»  DVW 


REWIND  ITAPE,  NTAPE 


e  DIFBC  Flow 
(concluded) 
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SUBROUTINE  DlFBC(NDPT$*IFB) 

COMMON  At  17*17 )*DA( 17*17)*81t 17*4) *DBl (27*4) *B2d7*3)  *DB2(  17*3) 
COMMON  BPB(4*4) *000(4*4) *H1 (21*17) *DHl(2l»17) *01(21*4) *001(21 *M 
COMMON  D2(21 *3) *002(21*3) *PV( 17*17) *KV(4*13)*FV(4)*GN(1?)»AD( 17) 
COMMON  VW(3)  *Sl(21*?l)*S2(2l*21) *53(21*21 ) *BP( 4*17) *00(4*21 ) 
COMMON  SUM(4 *4) *KWA(4) *0(21*21) *B3( 17*3) *DB3( 17*3) tCKV(4*l8> 

COMMON  NX*NR»NU*NW*NRT»NM*LW»I.R*MO»MI»DT*MIL*MIR*NFREO*ITAPE*NTaPE 
COMMON  XX (17)  *YY( IT) *X(  17»l?)*RXt?i *1)*R(21*1)*W1(3*3)  •’42(12*12) 
COMMON  W3( 3* 12 ) *H2« 12*17 )*BL( 17*12) 

COMMON  NME*NRE»NRB*DFV(4) *DVW(3 ) 

REAL  KV 
fmil-mil 

FMIR*MIR 

IF(IFB,E0*0)  GOTO  200 

fmil*-fhil 

FMIR»-FMIR 

200  CONTINUE 
REWIND  I TAPE 
REWIND  NTAPE 

REA0(N7APE)((A(1*J)*J«1*NX)*I«1*NX) 

READ ( NTAPE ) ( ( Bit  1 • J) • J*1*NU) *!*1*NX) 

READ (NTAPE) ((62tI*J)*J*l*3) *I«1 *NX ) 
REA0(NTAPE)(tB3tI.J)*J-l*NW)*I»l*NX) 

READ (NTAPE) ( (Hit  I • J) »J«1 *NX) *I«1»NRE) 

READ  (NTAPE)  ((OKI  •  J)  •  *NU)  *  I«1*NRE ) 

READ (NTAPE) ( (D2t 1*J) *Jal*3) »I*1*NRE' 

READ(NTAPE)VW 
DO  1  I-1*NX 
00  73  J-l*3 
73  B2( I *J)*B2(I *J)*DT 
00  2  J»1 »NU 

2  Bl(f »J)bB1(! *J)*DT 
00  3  J*1 *NW 

3  8S( I • J)«83( I  * J)*DT 
00  1  >1*NX 

1  At I*J)«A(!»J1«DT 

WRITE(ITAPE) t (A(I*J)»J»1*NX)»I»1*NX) 

WRITEt (TAPE) t  (Bid  *J) *J«1»NU) *l»l *NX) 

WRITE(ITAPE) ( (B2( I • J) • J*l*3) • t*l*NX> 

WRITEdTAPE)  (  <BS(  I  •  J)  »Jal*NW)  *t*l»NX) 

WRITEdTAPEH  (Hit ! • J) *J>1*NX) t !«1 »N*E ) 

WRITEdTAPE)  «  (D1C I  *J) *J«1*NU) »1«1*N*E) 

WRITEdTAPE)  ( (D2d  *  J)  *  J«l*3)  *I*1*NRE) 

WRITE(ITAPE)VW 
00  100  L»2*N0PTS 
IF(IF6*EQ*0)  GOTO  201 
IF(L*EO*NOPTS)  GOTO  11 
GOTO  10 

201  CONTINUE 
IF(L*EQ*2)  GOTO  10 
GOTO  11 

10  RRDT-l./FMlL 
GOTO  12 

11  RRDT-l./FMIR 


Figure  74.  Subroutine  DIFBC  Program  Listing 
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12  CONTJNUF 

READt  NTAPE)  (  (DA(ItJ)»Jal«HX)»I*l»NX) 
READtNTAPEH  tDRl<!»J)»J*l»NU).I«l»NX) 
READtNTAPGX  tD82d»  J)»J*l*3)#I*l»NX) 
READt  NTAPE  M ( DB3 (I »  J ) t J* 1 »NW ) . 1 -1 . NX ) 
READ (NTAPE) t ( 0H1» I t  J) » J*1 »NX ) j 1*1 »NRE ) 
READt NTAPE) ( ( DD1U • J) t J*1 tNUJ » 1*1 »N3E ) 
READ t NTAPE) ( tDD2t I , J) *J*1»3) »I*1»NRE) 


RFAR(NTAPP)PVW 
DO  21  1*1 *NX 
HO  TA  J*lt3 

1*  m2 1 1  «J?*DR2 1 1 » J)*OT 
DO  22  J*1»NU 

22  DBlt!»J)*D8UI»J)«D? 

DO  23  J*1»NW 

23  OR3(I#J)*D33< I»J)*DT 
DO  21  J*1 »NX 

21  OA(|*J)»DACI»J)«DT 
DO  31  r*l#NX 
DO  75  J*1 #3 

75  P2t  I  »J)*tE*2t  I »J)“On2t I »J) )*RRDT 
DO  3?  J*1 ♦NU 

32  Bl(I#J)*t81(I • J)-oni ( I » J) )#RRDT 
no  33  J*1 »NW 

33  r.3(l»Ji«tl)3U»Jl"DQ3<I»J))»RROT 
DO  31  J*ltNX 

31  At  I «J)*<A( I» J)-DA( I » J) )*RRDT 
DO  41  I«1*NRE 
DO  76  J*lt3 

76  02( I » J)« (D?  C I »J)-DD2  1 1 • J) )#RRDT 
DO  4?  J*ltNU 

4?  Dlt  I.J)*(DH  !.J)-D()ltI»J))*RRDT 
DO  41  J-l.NX 

41  H1(!«J)*(H1(!  »J)*»DH1 1 1 1  J)  )#RRD? 

DO  77  |3l,3 

77  VWt 1 )«(VW( I  )**DVW(  I )  )*RRDT 
WRITE tlTAPE)  t  ( AU  » J )  *  J"1  tNX) »t*l*NX) 
WRITftlTAPDt  (RlU,J)»J-l»NU).!*i»NX) 
WRITE  (I  TAPE)  t  tR2U»J)»J*l*3)«I*l»NX) 
WRITFtlTAPE) t tP3«I*J)*J*l*NW)*I*l*NX) 
WRITE (I TAPE) t (Hit  I *J) »J»1»NX) *I»1»NRF) 
WRITE  (I  TAPE)  (  (Dl(t»J)»J*1  *N'J )  ► I *1 *NRE ) 
WRITE  1 1 TAPE ) ( (D2( I » J) t J*1 »3) t I*1»NRE) 
WRITE(ITAPE)VW 

DO  51  I»1.NX 
DO  7«  J*l*3 

78  D2(I.J)*DB2(I.J) 

DO  42  J*1*NU 

32  Pit! #J)*DB1( I *J) 

DO  33  J*l.  »NW 

53  n3ti»j)*on3(i*j) 

DO  51  J-l.NX 

31  AtI,J)»DA (IfJ) 

DO  61  I*l»NRE 


DO  79  J*l*3 

79  D2t!»J)sDD2<!.J) 

DO  6?  J»1 »NU 

6?  Dlt I»J)*DDlt I »J) 

DO  61  J*1 #NX 
61  Hit  I »J)*DHlt  I »J) 

DO  80  1*1*3 

80  VWt I ) *DVW( I ) 

100  CONTINUE 

WRITECITAPS)  t  (Ad *J)  »J*1  »NXi *I*1*NX) 
WRITE  1 1  TAPE)  t  (Rlt  1 1  J)  »J*1  »N«i)  *1*1 »  NX) 
WRITEtITAPE)  t  (P2t  I  »J)  *»'*1*3 )  »I*1»NX) 
WRITE  t ITAPE) ( (R3( I «J) »J*I»NU) *1*1* MX) 
WRITEtITAPE) ( (Hl(I»J)»J»l»NX)»l*lfNRE) 
WRITEtITAPE) ( (Dl(I.J)»J*l.Nl')*l*l.NRF) 
WRI TE( ITAPE ) t CD2tI»J)*J*l»3)»I*l»NRE) 
WRITEt ITAPE )VW 
REWIND  ITAPE 
REWIND  NTAPF 
RETURN 
FND 


Figure  74.  Subroutine  DIFBC  Program  Listing  (concluded) 


198 


* 


I 

! 


t 

\ 


i 

? 


iflXlH'— I  iOl, 


riWWaiVr  i  rn 


J 


Subroutine  BCOEF 

Subroutine  BCOEF  generates  the  current  value  of  linear  data  backward 
in  time  from 

t(l)  =  f  (t  -  1)  -  A  HI) 

where  Af(£)  is  computed  by  the  subroutine  DIFBC. 

The  flow  chart  of  the  subroutine  BCOEF  is  shown  in  Figure  75  and  the 
program  listing  in  Figure  76. 


Subroutine  DIFG 

Subroutine  DIFG  generates  the  current  slope  of  controller  gains  from 
AK (l)  =  [K(t  -  1)  -  K(t )3 / AT 

and  stores  them  in  a  scratch  tape.  It  basically  performs  the  same  function 
aa  the  subroutine  DIFBC. 

The  flow  chart  of  subroutine  DIFG  is  shown  in  Figure  77  and  the  pro¬ 
gram  listing  in  Figure  78. 


Subroutine  RDWT 

Subroutine  RDWT  transfers  the  linear  data  from  one  scratch  tape  to 
another.  Its  flow  chart  is  shown  in  Figure  79  and  its  program  listing  in 
Figure  80. 


Subroutine  REVG 

Subroutine  REVG  basically  performs  the  same  function  as  subroutine 
REVS  except  it  reverses  in  time  the  current  slopes  of  controller  gains 
using 

K  V  ■  K  «n  '  V 

The  flow  chart  of  subroutine  REVG  is  shown  in  Figure  81  and  its  program 
listing  in  Figure  82. 
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Figure  75.  Subroutine  BCOEF  Flow 
Diagram 
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SUBROUTINE  nCOFFtJ-fNJ  .. 

COMMON  A(  17.17 1 *0A<  17»17)i«lU7iA)i0bl(lT*A)»H?.ll7»J)»Di<!tl7»3) 
S  BPB(4.4) *DQD( A *& )  .H1I21.17)  .DHH21.17)  .OK?!  .4 )  *DD1C  71 .4) 
COMMON  D2I21.3>»0D2<?l»3>»PV<17.i7> •  iCV C 4 *  1 8 J »FV(4) »GN<17) *At)tX7) 
COMMON  VW(3)  »Si(21»?l>  »S2 1 21*211 .S3 <21*21 1 *RP< 4.17 1 .00(4.21 ) 
COMMON  SUM(4»4) »KWA<4) »Qt  21  *213  *83<17»3>*DB3t  17.3>*DXV(4*18) 

COMMON  MXtNN*NU»NW»NRT»nM*LW*LR#MO»Hl»OT*MlL«MIK#MFRCO»lTAPl.»NTAP” 
COMMON  XX (171 *YYt 17) *X< 17.17) .RXI21 #1) *Rt21tl|*Wl<3»3l .W2< 12.12) 
COMMON  W3(3.12).H2<12»17)»m.<l7.1?> 

COM  VON  NME  ,  N  R  E  ,  NRfl  *  OF  V  ( 4 )  »OV  •/  ( 3  ) 


RFAL  XV 
IF<L-1)3»1*3 

1  IF(N-1)3.2»3 

2  DO  4  1*1  .NX 

4  ADU)*AU.n 

3  CONTINUE 

00  3  1*1. NX 
Aom*Aom-oA(i*n 

5  A(I.f )*AD(t)+l. 

DO  ft  1*1 .NX 

no  ii  j*i»3 

ii  ^2u.j)*B2(i.j)«on?<r.j) 
no  7  J-l.NU 

7  niU*J)*Bl(I.J)-0«l(l.J) 


no  6  J*1 .NX 
1FI I.FO.J)  GOTO  6 
A<I.J)*A(I»J)-nMI.J) 
6  CONTINUE 
DO  fi  1*1  .NR 


00  12  J*1 .3 

12  D2U*J)*02tl*J)-00?II»J) 
DO  9  J«1»NU 

9  ni(I.J)*01(l  .JI-OOlU.J) 
no  n  j*i »nx 

8  HI  (  T  » J)*H1( 1  »  J)«*0H1  ( 1  *  J) 
no  10  1*1.3 
io  wcij.vwin-nvvMi) 

RETURN 

FMD 


Figure  76.  Subroutine  BCOEF  Program  Listing 


SUBROUTINE  OIFG(KTaPf.NDPTS) 

COMMON  A(17tl7)*DA(17*17)»81(17.4)tDBl(17»4).n2tl7»3)»Drl2(17»3) 
COMMON  BP3(4.4).0QDU.4>.H1(21»17) *OHl ( 21 .17 > »D1 < 21 ,4 ) .001(21.4) 
COMMON  D2(21.3).DD2<21»3)»PV(17.17) »KV(4»18 ) ,FV (4) .GN( 17 > .AC. ( 17 i 
COMMON  VW(  3 )  . Sl(21»21)» S? (21. 21). S? (21. 21). BP (4.17) *03(4*21 ) 
COMMON  SUM14.4)  *KWA(4 )  *0(21*21)  »B3(  17*31  »DB3  ( 17.3)  »OKV{  &  *18  ) 

COMMON  NX»NR.NU*NW,NRT»NM*LW*LK*M0»-II.DT.MIL*MIR»NFREU*ITAPE*NTAPF 
COMMON  XX(17).YYC17)»X(l7.17).RXt21.1),R<21,)).Wl(3.3).V*7( 12.1?) 
COMMON  W3(3.12).H2(12.17)»*L( 17.12) 

COMMON  NME ,MRF .NRB.OFV ( 4  >  »OVW ( 3 ) 

RFAL  XV 
RFWIMO  NTAPF 
RFWIND  KTAPF 
NX1-NX+1 
FMIL-MIL 
FMIR-MIR 

REAO(NTAPE)(  (KVU»J).J*1.NX1)  .I«1»MU> 

WRITE(KTAPE)  ((KV(I,J),J«l.NXl)»I-l»riU) 

DO  100  L-2.N0PTS 
IP( L»EQ»2)  GOTO  10 
GOTO  11 

10  RROT-l./FMIL 
GOTO  12 

11  rrdt-i./fmir 

12  CONTINUE 

REAOINTAPEH  (DKVU,J),J«l,NXl)f  I-l.NU) 
no  20  I*1»NU 
00  20  J«1.NX1 

20  KVC I ,J)-(KV( I .J)-DKV( I . J) )#RRDT 
WRITE(XTAPE)  (  (KV<I,J),J«1.NX1).I**1,NU) 

00  21  I-l.NU 

no  21  J-1.NX1 

21  KV( I »J)*DKV( I . J) 

100  CONTINUE 

WRITF(XTAPF)  «  (XVU.J)»J«1,NX1).I«1.NU) 

RETURN 

END 


Figure  78.  Subroutine  DIFG  Program  Listing 


*w  ^  «***"■«* ^•^S5^T?-'??7T"'«'S'^7^ WffWW^aw.w  *’  ^'»W»7WWWB*^i 


(MTEA) 

nr\ 


REWINO  LTAPE,  MTAPE 


I 


) 


0010  L  *  1,  NRNN 


READ  LTAPt 
A,  BL  82,  B3,  HI,  PL  02,  VW 


WRITE  MTAPE 
A,  Bl>  62,  B3,  HI,  01,  02,  VW 


I 


D 

) 


CONTINUE 


HO) 


"  T~ 7 

(5) 


Figure  79.  Subroutine  RDWT  Flow 
Diagram 


SUBROUTINE  RDWT (LTAPE .MTAPE *NNNN ) 

COMMON  A (17. 17) »DA( 17. 17) .PI <17*4) *081 t 17.4 ) »B7 ( 17.3 ) .DB2( 17.7) 
COMMON  BPB(4»4).DQ0U.4)  .HI  (21*17)  .DH1  (21 .17 )  *Dl(21  .A  >  »DDH  21  .4  ) 
COMMON  D2(21»3J.DD2(21»3)»PV< W.17)  *KV(4.18)  .FVU)  *GN  ( 17  )  .AD(  17) 
COMMON  VW(3>  .SK21.21)  .S2C21.2U  .  53(21*21).  BPJ4.17) .DQ(4. 21) 
COMMON  SUM(4.4).KWA(4)»Q(21»21) *B3< 17.3). DB3( 17.3) »DXV(4. 18) 

COMMON  NX. NR  . NU.NW.NRT  «NM»LW »LR »M0»<’iI  *DT  .Ml  L.KI  R.NFREQ*  I  TAPE  .NT  aPC 
COMMON  XXH.T) *YVC 17). X( 17.171 .RXI>l»l).k« 21.1). Wl( 3.3) .W2( 12.12) 
COMMON  W3( 3. 12 ).H2( 12.17 ).BL< 17.12) 

COMMON  NME.NRF.NRB.DFV<4).DVW<3) 

RFAL  KV 
RFW1ND  ltap 

REWIND  MTAPE 
DO  10  L-l.NNNN 

READ  ( LTAPF  H(Atl.J)  *J«1  .NX  )  .  !<*1  .NX  ) 

READ( LTAPE )( C  HI ( I .J)*J"1*NU)»I»1.NX) 

REAO(LTAPE)( (B2(I.J)»J>1.3).!"1»NX) 

READ C  LTAPE )( ( H3(l » J) » J*1 »NW ) . I»1.NX ) 

REAP (LTAPE) ( CHI (I »  J )  »  J“1  .NX  )  »I»l.Nf?t ) 

RFAD(  LTAPE ) ( ( D1 ( I . J ) » J«1 .NU ).I»l.NRC) 

READ ( LTAPE) ( ( D?U . J) *J“1 .3) .1*1 »NRE> 

READ! LTAPE) VW 

WRITF (MTAPE) ( ( A( I . J ) . J- 1 .NX ) » I»1 .NX ) 

WRITE (MTAPE) ( (Bi( I »J) »J«1»NU) >1*1. NX) 

WRI TE (MTAPE ) ( (B2( I . J) . J»1 »3 ) *I»1*NX ) 

WRI Tr (MTAPE) ( (B3< I.J) »J»1»NW) *I«I .NX) 

WR I TF (MTAPE ) ( (HI ( I . J) . J-l .NX > » I»1 »NRE ) 

WRI TF (MTAPE ) ( <D1 ( I • J) .J«l .NU) .1-1 »NRE) 

WRITE (MTAPE) ( (D2( I .J) .J-l .3) »I»1.NRE) 

WRITE (MTAPE ) VW 
10  CONTINUE 
RETUF.‘« 

END 


Figure  80.  Subroutine  RDWT  Program  Listing 
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Figure  81.  Subroutine  REVG  Flow  Diagram 


SUBROUTINE  REVG(LTAPE.MTAPF .KDPTS ) 

COMMON  A(  17»  17 1 *0A(  17  *17)»fll(17  *4  )»Db  1(17  *4  )»li?(17*3)»  002(17.3) 
COMMON  BPB(4«4). 000(4*4) .HI { 21 *17) .DH1 ( 21 ,17 ) .01 (21*41 *001(21*4) 
COMMON  02 (21»3)*00?(?1*3)»PV (17.17) »KV(4, 18 ) ,FV ( 4 ) *GN( 17 ) * AD (17 ) 
COMMON  VW(3)  *S1(21*21) »S?(2l»?l) »S3(21»21> »RP(4*17) .D0<4»?1) 
COMMON  SUM(4*4)*KWA(4)*0(?1»21)  ,83 ( 17.3 ) *DB3 ( 1 7. 3 ) .DKV( 4* 1? ) 

COMMON  NX.NR. NU.NW.NRT  » NM.LW.LR »MO»M  1  .DT.MiL  .Ml N.NFREQ.  I  TAPE, .ntape 
COMMON  XX(17).YY(17)»X(17.17).RX(?1.1).R(21.1).W1(3»3).W2(12.1?) 
COMMON  W3(3.12).H2(12»X7).RL<17,12) 

COMMON  NME  *NRF  *NRB  *OFV ( 4 ) »DVW ( 3 ) 

REAL  XV 
MX1-NX+1 
RFWIND  LTAPF. 

REWIND  MTAPE 
DO  1  L-1.NDPT5 
JJ-NDPTS-L+l 
00  2  X-l.JJ 

2  REAO(LTAPE)( ( XV( I . J ) . J-l *NX1 ) *1-1 .NU ) 

WRITF(MTAPE) ( (XV( l * J) *J«l*NXl) *I«1*NU) 

REWIND  LTAPF 
1  CONTINUE 
REWIND  MTAPE 
RETURN 
FND 


Figure  82.  Subroutine  REVG  Program  Listing 
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Subroutine  FCOEF 


Subroutine  FCOEF  generates  the  current  value  of  the  forward  time  linear 
data  from 

f(k)  =  f  (k  -  1)  +  Af  <k) 

The  flow  diagram  of  subroutine  FCOEF  is  shown  in  Figure  83  and  the 
program  listing  in  Figure  84. 


ADAP  2  AUXILIARY  SUBROUTINES 
Subroutine  MP 

Subroutine  MP  prints  the  matrix  quantities.  Each  row  of  printed  matrix 
is  identified.  Its  flow  chart  is  shown  in  Figure  85  and  its  program  listing  in 
Figure  86. 


Subroutine  INPT 

Subroutine  INPT  reads  in  matrices  from  cards.  Each  nonzero  element 
of  a  matrix  is  identified  by  its  row  and  column  indices.  Up  to  five  elements 
can  be  input  on  one  card. 

The  flow  chart  of  subroutine  INPT  is  shown  in  Figure  87  and  the  program 
listing  in  Figure  88. 


Subroutine  OUTP 

Subroutine  OUTP  punches  matrices  into  cards.  Its  flow  chart  is  shown 
in  Figure  89  and  its  program  listing  in  Figure  90. 


Subroutine  TDINVR 


Subroutine  TDINVR  is  a  general-purpose  matrix  inversion  subroutine. 
It  uses  the  Gaussian  reduction.  Its  program  listing  is  shown  in  Figure  91. 


SUBROUTINF  FCOFFIL) 

COMMON  A( 17* 17 )*DA( 17*17 )*P1( 17*4 ).DB1(17.A)*K2( 17*3 > *DR2 ( 17*3 > 
COMMON  UPB(4»4)*D0D(4*A) »H 1(21*17) *DH1 (21.17 ) .01(21 *4)  *001 { 21 >4) 
COMMON  02(21 *3)*DD2(?1*3) »PV (17*17) »KV(4»18) *FV(4) *GN( 17)  »AD( 17) 
COMMON  VW(  3 )  *S1  (21  *21 )  *.*>2(  21*2)  )  *S3  ( 21  *21 )  *PP(  4*17 )  *DQ(4»21 ) 
COMMON  $'JM(4 *4h*Kl/A(4 )  »0(.21  *21 )  »B3  (17*3)  »DB?  (17*3)  »DXV(4* 18 ) 

COMMON  NX»NR  *NU*NW*NRT *NM*LW*LR»MO»Ml  *0T »MI  L  »i'il  R.NFREG*  I TAPL  »NTAPt 
COMMON  XX(17»  *YY(17>*X( 17*17) »RX(21 *1» ,R( 21.1 ).W1( 3*3) *W2( 12. 12) 
COMMON  W3(3»12)*H2(l2*l7)»BL (17*12) 

COMMON  NME.NRF *NRB»DFV(4  )  »DV*'( 3  ) 

REAL  XV 

DO  9  1<*1  »NX 

An(l)«At>m+DA(I»n 

5  A ( I • I )*AD( I  )  +  l  # 

DO  6  I«1*NX 

DO  11  J*l*3 

11  D2 ( I ♦ J)*B2( I  * J)+DB2( I »  J) 

DO  7  J*1 »NU 

7  B1<I»J)»B1(I  »J)+0B1U.J> 

DO  e  J-l.NW 

9  R3(  I »J)*B3( I *J)+DB3( I »J) 

DO  6  J-l.NX 
IF(I.FO.J)  GOTO  6 
A ( I  •  J ) *A  ( I  » J  )  +DA(  I  .  J) 

6  CONTINUE 

DO  9  1*1 *NR 
DO  13  J-1.3 

13  D2( I • J)*D2(  I  * J)+DD? ( I . J) 

DO  10  J»1*NU 

10  D1(I*J)*0KI  ♦ JI+DD1  ( I  *  J ) 

DO  9  J*1 »NX 

9  HI ( I »J)*H1( I » J)+DH] ( I • J) 

DO  14  1*1*3 

14  V'.'(  I)»VV(I)+DVW(! ) 

DO  12  I*l.NU 

FV ( J ) *FV ( | ) ♦OFV ; I ) 

DO  12  J*1 »NX 

12  XV ( I  * J)*KV( I » J)+DXV( I *J) 

RETURN 

FND 


Figure  84.  Subroutine  FCOEF  Program  Listing 
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Figure  85.  Subroutine  MP  Flow 
Diagram 


SUBROUTINE  MP CK*L» I »J.A.LW> 
DIMENSION  A(K»L) 
oo  i  n»i,i 
WRITE  U.W.3MI 
3  FORMAT I3H  ROW  13) 

1  WRI  TF(LW»2M  A  ( 1 1  *  JJ*  # JJ«1» J J 

2  FORMAT! 10E12* A) 

RETURN 

END 


Figure  86.  Subroutine  MP  Program 
Listing 
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a* 


Figure  87.  Subroutine  INPT  Flow 
Diagram 


SUO  ROUT  INF  INRTU»!!*JJ) 

DIMENSION  AUI*JJI»I0I5)*J0<»)*TDI») 

l  READ t  sill I* <  J JOC i».VOCll.IOIi> » JOI 2  >  »V0  C*l.IOIS>.Jet»».YDt»». 
110(4)  »J0(4>  »VDC4I  *  IOC?)  »  Jl)C5 1  *70(9 ) 

IF(lOm)S»10*9 

3  00  f  L«1#0 
IF(IO(LI)4*t** 

4  TF(YOai)7»4»T 

7  l«l"lll 
J»JD(U 

5  A(  I  eJ)*YDU.) 

6  CONTlNUf 
GOTO  1 

10  CONTINUE 


RETURN 

END 


Figure  88.  Subroutine  INPT  Program  Lasting 
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sun ROUT  INF  01 ITP ( 1 1 J # 1 1 • J J  »  Y ♦ UP ) 
DIMENSION  Yt ItJ)iYD(S) . JD(5)»JD<5) 

SO  FORMATt5(2fr»»F12.S)  J 
III  »0 

00  100  <»1 *  I J 

00  100  M«1,JJ 

TFCY«K#M).CQ*0«»  GOTO  100 

1II-III-H 

YDI 111 l»Y(K*M) 

ioiuik 

JOC If !>»M 

IFttll.LT.Sl  SOTO  100 

writf(lp»50)  <  io<u#Jo<u*Yna)*L*i»nn 

II I -0 

100  rONTINtJF 

IFIIII.ro. 0)  RFTURN 

vmiTE(LPf50»(ID(U»JOtU»YOa)*L»l»III) 

RETURN 

FND 


Figure  90.  Subroutine  OUTP  Program  Listing 
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SUBROUTINE  TDINVRt  I  SOL*  IDSOLtNR#Nf  »A»=',RA»KW'A*DET} 
DIMENSION  A( l)tKWA(l) 

IR-NR 
ISOL  »1 
IDSOL-1 
KK«2 

10  IF( NR  I  61*61*11 

11  IF(IR-MRA>12*12*61 

12  IOIABSINC) 

IF(IC-IR)  13*16*14 

13  IC-IR 

14  IBMP»1 
JBMP*MRA 
KBMP»JBMP+I«MP 
NES«IR*JBMP 
NET«IC#JBMP 

I F  t  NO  13*61.16 

15  MDIV-JRMP+1 
IRIOIR-IC 
GO  TO  17 

16  M0IV-1 

17  MAD  »MDIV 
MSER-1 
KSFP-IR 
M2  «1 
DFT-1.0 

18  PIV-0.0 
I-MSER 

19  IFU-KSER)  20*20*23 

20  IF(  ABS<A(I) >-PIV)22*22.21 

21  PIV«  ABSIAIU) 

IP-I 

27  I-I+IRMP 
GO  TO  19 

23  IF(PIV)  24.62*24 

24  IF(NC)  26*25.75 

25  I-IP-UIP-1)/JBMP)«JBMP 
J»MSER-I  (MSER-1)/JBF,P)*JBMP 
JJ-MSER/KBMP+1 

I  I"JJ+( IP-MSFR ) 

KWA(JJ|-II 
GO  TO  27 

26  I-IP 
J-MSER 

27  ITdP-MSER)  61*31*28 

78  IF(J-NET)  79*79.30 

79  PSTO«A(I» 

A< II«A(J) 

A( JJ«PST0 
I » I ♦ JBMP 
J-J+JBMP 
GO  TO  28 

30  DET—DFT 


31  PSTO-AIMSERJ 


Figure  91 .  Subroutine  TDINVR  Program  Listing 
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KK«2 

GOTO(94*99)*KK 
99  GO  TO  99 
94  !0S0L*2 
99  P5TO«1*0/PSTO 
A  MSERl-1.0 
I -HD IV 

94  IPtt-HETl  97*97*99 
97  AII)«A{I>*PSTO 
I-I+JBMP 
GO  TO  94 

99  IPIHZ-KSERI  40*40*49 

40  IPtMZ-MSE*)  41*44*41 

41  >MAD 
J-MDtV 
P5T0-ACMZ1 
IPtPSTO)  142.44*142 

142  A(MZI«0*0 

42  ir«>«ETI  49*49*44 
49  A(I»«Afl)-A<JH»PST0 

J-J+JBMP 


I-I+JBMP 
GO  TO  42 
44  MAD«MAD4lBMP 
HZ-MZ+IBMP 
GO  TO  99 
49  KR«2 

GOTOf 49*149 l *KK 
149  K*E*«IC*«nUJ8MP 

IP«KS£ft~NES>  44*44*99 
44  MSEP-MSEIt+ICBMP 
IPIHCI  44*47*47 
47  HOI  V-MDl  V-*I8HP 

MZ-C IMSER-1 ) /JBHPl*JBHP4l 


MAO-1 
GO  TO  92 

44  MD!V»MDIV4*BMP 
IP(IRIC)  90.49*90 


49  HZ«HSfB*!BMP 

J-J-IBMP 

90  MZ»T?m!eR-  1 1 / JBHP ) * JBMP+l 

L-L-IKMP  _ 
GO  TO  58 

91  MA0*M2*JBMP 

60 

JR-JR-1 

S2  Oil  TO  14 

GO  TO  55 

«tS  SftHCI  45*54.54 

61 

1  SOL-3 

GO  TO  65 

99  m'.JRJ  41*49*54 

62 

OET-O.O 

94  JFtRHMJBl-JlO  41*49*57 

I  SOL-? 

57  K«CJR*»l>oJBMP 

1DS0L-1 

>K*fR 

GO  TO  65 

t- I RttAf  J81-1 *  *JBMP+IR 

63 

I  SOL-2 

54  IFIJ-KS  41.60*99 

IDSOL-2 

59  PSTO-AIU 

65 

RETURN 

AtU*AU) 

END 

A(J)«PST0 


Figure  91.  Subroutine  TDINVR  Program  Listing  (concluded) 
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SECTION  V 

ADAP  3  (PERK)  -  NONSTATIONARY  WEAPON 
PERFORMANCE  PROGRAM 

Program  ADAP  3  implements  the  analysis  developed  in  Section  VIII  of 
Volume  I.  It  is  essentially  a  time  varying  linear  system  simulation  program. 
It  develops  perturbation  trajectories  for  the  mean  and  covariance  of  system 
state.  In  addition,  it  computes  CEP  performance  measure,  equivalent 
weights  of  the  quadratic  cost,  and  optimal  control  weighting  matrix  and  the 
variance  contribution  matrix. 

In  this  section  input/output  information  is  given  first;  then  the  main 
program  and  its  subroutines  are  described. 


ADAP  3  INPUT /OUTPUT 


INPUT  DESCRIPTION 

Input  for  ADAP  3  is  in  the  form  of  cards  and  data  stored  in  a  permanent 
disc  file. 


Card  Data  Input 

The  first  group  of  cards  to  be  read  is  cards  1-4  which  provide  basic 
program  data.  Their  formats  are  shown  in  Table  XXV. 

The  next  cards  in  the  data  deck  are  the  nonzero  elements  of  the  matrices 
Xr,  Hg,  Hp,  andSp.  These  data  cards  are  read  by  the  matrix  input  sub¬ 
routines  InPT,  The  subroutine  INPT  and  the  associated  data  card  format  is 
described  in  "input  ADAP  2  (DISCOP)." 

Then  the  input  cards  for  the  vectors  xr,  fr,  and  §r  are  read.  The  format 
for  the  first  card  of  a  vector  input  is  shown  in  Table  XXVI. 

The  input  card  for  the  scalars  6tr  and  6tr^  corresponding  to  the  release- 
time  error  follows  the  last  card  of  vector  inputs.  The  format  for  this  card 
is  shown  in  Table  XXVII, 

The  next  two  cards  are  for  the  state  derivative  components  of  the  bomb 
at  impact  point.  The  format  for  these  is  shown  in  Table  XXVIII. 

The  )*st  portion  of  the  input  data  deck  is  for  the  matrices  X*  and  0,  if 
IRUN  *  l 

Figure  92  illustrates  the  sequence  in  the  input  card  deck. 
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| 

I  I  Table  XXV.  Format  for  ADA P  3  Data  Input  Cards  1-4 


Card  /  Format 

Column 

Quantity 

Description 

1/(313) 

1-3 

N 

Number  of  integration  steps/ second 

4-6 

NX 

Number  of  state  variables 

709 

NW 

Number  of  disturbances 

2/(2E15.  8) 

1-15 

TR 

Release  time 

16-30 

TF 

Impact  time  of  weapon 

3/(2012) 

1-2 

ISUF1 

3-4 

ISUF2 

5-6 

ISUF3 

7-8 

ISUF4 

9-10 

ISUF5 

11-12 

ISUF6 

13-14 

ISUF7 

15-16 

ISUF8 

17-18 

ISUF9 

19-20 

ISUF10 

21-22 

ISUF11 

23-24 

ISUF12 

25-26 

ISUF13 

27-28 

ISUF14 

29-30 

ISUF15 

31-32 

ISUF16 

33-34 

ISUF17 

35-36 

ISUF18 

37-38 

ISUF19 

39-40 

ISUF20 

4/(12) 

1-2 

1RUN 

IRUN  =  0  Integrate  to  obtain  X^  and  0 

IRUN  +  0  Read  in  Xf  and  0 

& 


"*.  17 


nirniiaMiii 


Table  XXVI,  Format  for  First  Card  of  a  Vector  Input  [Format  (5E12.5)] 


Column 

Quantity 

Description 

1-12 

V(l) 

Value  of  the  fir  st  component  of  a  vector 

13-24 

V(2) 

Value  of  the  second  component  of  a  vector 

25-36 

V<3) 

Value  of  the  third  coL..ponent  of  a  vector 

37-48 

V(4) 

Value  of  the  fourth  component  of  a  vector 

49-60 

V{5) 

Value  of  the  fifth  component  of  a  vector 

Table  XXVII.  Format  for  Release-Time  Error  Input  Card  [Format  (2E12.  5)] 


Column 

Quantity 

Description 

1-12 

13-24 

DELTR 

DELTRS 

Mean  value  of  the  release-time  error 

Mean  square  value  of  the  release-time  error 

Table  XXVIII.  Format  for  Bomb  Component  Input  Cards  [Format  (2E11.  4)] 


Column 

Quantity 

Desci'iption 

1-11 

FTF(1) 

W 

12-22 

FTF(2) 

fce(V 

23-33 

FTF(3) 

U(tf) 

34-44 

FTF{4) 

6  (tf) 

45-55 

FTF(5) 

q  (tf) 

Column 

Quantity 

Description 

1-11 

FTF(6) 

w  (tf) 

12-22 

FTF(7) 

>re(tf) 

23-33 

FTF(8) 

*  (tf) 

34-44 

FTF(9) 

r  (tf) 

45-55 

FTF(10) 

v  (tf) 
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Figure  92.  ADAP 


Permanent  Disc  File  Input 


Permanent -file  input  occurs  first  in  the  main  program,  just  before  the 
outer  loop  is  entered,  and  is  called  for  only  if  IRUN  ■  0,  If  it  is  so,  the 
linear  data  (F,G)  obtained  during  ADAP  1  run  for  weapon  are  read  in  for  the 
first  two  time  points  after  release.  Data  inputs  for  the  subsequent  time 
points  occur  just  before  the  new  outer -loop  computations  begin. 


OUTPUT  DESCRIPTION  | 

The  output  from  ADAP  3  is  in  print  and  punched-card  form,  ! 

The  input  parameters,  NX,  NW,  N,  TR,  TF  and  input  matrix  Xr  are  j 

printed  after  card  inputs.  j 

t 

„  The  spmputed  quantities,  Xf,  0,  E,  V,  XH,  SL,  CEPH,  CEP,,.  ^H,  Qv,  i 

CEPjj.  CEPy  are  all  printed  out  at  the  nominal  impact  time  tf.  v  v  ! 

I 

The  punched-card  output  occurs  at  the  end  of  an  ADAP  3  run.  If  IRUNa0,  I 

the  Xf,  0  and  Qjj  matrices  are  punched.  If  IRUN  t  0  only  the  QH  matrix  is 
punched.  I 

i 

j 

ADAP  3  PROGRAM  DESCRIPTION 


ADAP  3  MAIN  PROGRAM 

5 

The  ADAP  3  main  program  accepts  the  release  covariance  of  a  weapon  j 

and  propagates  it  to  the  impact.  Its  functional  flow  diagram  is  shown  in  j 

Figure  93,  At  the  start,  initial  parameters  are  read  and  printed  out.  Then 
all  matrix  locations  are  cleared  and  the  necessary  input  data  for  the  bomb  ’ 

release  covariance  computation  are  input.  The  release  covariance  of  air¬ 
craft  Xr  is  printed  out,  and  the  rows  and  columns  of  two  states  corresponding  : 

to  roll  (p,0 )  are  deleted,  since  the  weapon  itself  does  not  have  roll  data  and  ? 

corresponding  differential  equations.  Then  the  initial  mean  state  and  j 

covariance  of  the  bomb  are  calculated.  If  IRUN  *  0,  the  covariance  differen-  * 

tial  equation  with  zero  initial  condition  is  integrated  to  obtain  the  forced 
covariance  matrix  Xf,  At  the  same  time  the  fundamental  matrix  (transition  \ 

matrix)  of  the  weapon  is  computed.  This  is  used  to  propagate  the  homoge-  \ 

neous  covariance  matrix  to  impact.  Both  matrices,  Xf  and  0,  are  printed  j 

out  at  the  impact  point.  Also,  the  total  covariance  is  computed  and  printed  j 

out.  i 


'  n't”,  .sr*"  "-^*r7a ;  -  *=r>^r- 


REAO  II  NX  ttH,  TR, 
TF,  I RUX  ISUF 


S  IF  NO 
[IRUN*  0> — 


REAO  X,  *ND  ; 


PRINT  NX  m  X  TR,  TF 


_51_6,_7,_3005  _ 
ZERO  ALL  ARRAY? 


200,  100,  301,  102,  103,  104, 
105,  205,  202,  201 

INTEGRATE  COVARIANCE 
EQUATION  TO  OBTAIN  x,  AND 

i  ■  F*T0  OBTAIN  DATA 
TRANSITION  MATRIX  » 


REAO  INXr,  Hg,Hr,xr 

fr,vsr.  w2-^ 

=zzei=: 

_ 300X3002 _ 

PRINT  Xf 
REDUCE  X, 

17  x  17  TO  15  x  15  BY 
DELETING  p  AND  « 
STATES 


PRINT  MATRICES 
Xf  AND: 


_460j_461,_46  2_ 

COMPUTE 
X(Tf)  AND  PRINT 


402,  403,  404,  405, 
607,  508 

COMPUTE  INITIAL 
MEAN  STATE  AND 
COVARIANCE  OF 
BOMB 


_ _306X_3062,  3063_ _ 

COMPUTE  AND  PRINT  VARIANCE 
CONTRIBUTION  MATRIX  E,  AND 
NORMALIZED  VARIANCE 
CONTRIBUTION  MATRIX  V 


715,  716,  717,  718, 
719,  723,  724,  725, 
726 


COMPUTE  AND  PRINT 
XH,  XV.  CEPH,  CEPy 


COMPUTE  AND  PRINT 
Of,,  Qv  AND  APPROX¬ 
IMATE  ceph,  c?pv 


NO  PUNCH 
faUN-Mp - M  Xf  AND  t 


EXPAND  Off  FROM  15  x  15  TO 
17  x  17  AND  PUNCH  Qu 


Figure  93.  ADAP  3  (PERK)  Functional  Diagram 


,  I 


IT  IKEAD  i  0  then  the  program  reads  X*  and  0  which  are  punched  on  j 

cards  from  the  previous  ADAP  3  run,  in  this  case  integration  is  not  needed.  j 

From  the  nominal  impact  covariance  several  auxiliary  data  are  derived.  j 

First  the  variance  contribution  and  the  normalized  variance  contribution  ; 

matrices  are  computed  and  printed  out.  Then  the  horizontal  and  vertical  I 

impact  covariance  matrices  and  corresponding  CEPs  are  calculated  and  j 

printed  out.  Next  the  optimal  control  weighting  matrices  and  approximate 
CEP  calculations  are  made.  Near  the  end,  the  IRUN  switch  is  tested.  If  j 

IRUN  ■  0,  Xf  and  0  are  punched.  If  not  only  the  weighting  matrix  Qh  is  \ 

punched  on  cards  after  it  is  expanded  to  the  full  matrix  corresponding  to  the  > 

aircraft  data  (rows  and  columns  corresponding  to  p,  0  are  provided).  ] 

j 

The  program  has  two  basic  loops,  the  integration  loop  and  the  data  up¬ 
date  loop.  Data  update  time  ATU  is  1  second.  Integration  step  size  At  is 
0. 01  second.  Data  outputting  interval  AT0  is  0. 1  second.  The  time-varying 
coefficient  matrices  for  integration  are  obtained  by  a  linear  interpolation 
between  data  points  and  are  assumed  to  be  constant  during  the  integration  ; 

interval. 

Figure  94  illustrates  data  updating,  integration  and  outputting  processes 
for  arbitrary  step  sizes. 


KK«1  2  K  K+l  KB1G  KB1G1 

-vT.r- 

i  i  i  i  i  n  i  {“i  n 


Figure  94.  ADAP  3  Data  Update,  Integration  and 
Outputting 
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The  detailed  flow  chart  for  ADAP  3  is  shown  in  Figure  95  and  the  pro¬ 
gram  listing  in  Figure  96,  Symbols  are  listed  in  Table  XXIX.  ADAP  3 
subroutines  are  listed  and  described  briefly  in  Table  XXX.  The  auxiliary 
subroutines  INPT,  MP  and  OUTP  are  similar  to  those  of  ADAP  2  described 
in  Section  IV. 


ADAP  3  SUBROUTINES 
Subroutine  SHUF 

Subroutine  SHUF  generates  the  shuffled  linear  data  for  the  weapon.  Its 
program  listing  is  given  in  Figure  97  and  its  symbols  are  listed  in 
Table  XXXI. 


Subroutine  INTEG 

•  • 

Subroutine  INTEG  integrates  X  and  0  equations  for  one  integration  step 
using  Adams  open  quadrature  formula  given  in  Section  m  of  Volume  I.  Its 
flow  chart  is  shown  in  Figure  98  and  its  program  listing  in  Figure  99. 
Symbols  are  listed  in  Table  XXXII. 


Subroutine  DIFF 

Subroutine  DIFF  generates  the  forward  difference  of  linear  «  "ta  corres¬ 
ponding  to  1 -second  intervals.  It  also  generates  the  current  value  of  data  at 
each  integration  step.  Its  flow  chart  is  shown  in  Figure  100  and  its  program 
listing  in  Figure  101.  Symbols  are  listed  in  Table  XXXm. 


Subroutine  CEPC 

Subroutine  CEPC  generates  the  CEP  performance  measure  (circular 
error  probable).  It  implements  the  analysis  given  in  Section  VU1  of 
Volume  I.  Its  flow  diagram  is  shown  in  Figure  102  and  its  program  listing 
in  Figure  103.  Symbols  are  listed  in  Table  XXXIV. 
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Figure  95.  ADAP  3  Main  Program  Flow  Diagram  (continued) 


Figure  95.  ADAP  3  Main  Program  Flow  Diegram  (continued) 


[©; 
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Figure  95.  ADAP  3  Main  Program  Flow  Diagram  (continued) 
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Figure  95.  ADAP  3  Main  Program  Flow  Diagram  (concluded) 


ffX f 


'I 

PROGRAM  ADAP3UNPUT»OUTPUT*PUNCH*TAPE5*INPUY»TAPE9«OUTPUT.TAPE3*PU  J 

1NCH.TAPE2)  | 

DIMENSION  E(3.15l»V(3.15)»S(3)  \ 

DIMENSION  D( 20.20 >.ISUF< 20)  \ 

DIMENSION  FTFC10)  | 

COMMON  FK!  20.20). FIC1(  20.20). FT!  15.15  )«DF(  15 .15) »X!15.15)»XR(17.17)  j 

COMMON  XDN! 15.15 ).XDNM1 (15.15)»PHT(15»15).PHIDN(15»15)  j 

COMMON  PHI0NMH15.15)  »G3K(2C»4)  .G3K1! 20.4) «G3T( 20.4) »DG3(20.4)  \ 

COMMON  C!20»4) *W(4.4)»XBAR( 15) oYWB! 12) »S1G(3 ) »CEP(2)  | 

COMMON  NX.NW.N.TF.TR.KBIG.DELT .DELTH.LW.LR. ITAPE  I 

COMMON  XRP(20»20).SXRP(20)»SFR(20).MB(15.15).HRI15.15) . SI GR 115.15)  i 

COMMON  XlRI20).QH0(20).OVO(2O).QH(20.20).QV(20,20)  j 


REAL  JH.JV 

PI-3.14139255 

PI2-PI/2. 

ITAPE-2 

REWIND  ITAPE 

LW*5 

LP*3 

U»*5 

READ(LR.l)  N.NX.NW 

1  F0RMATIS19) 

WRITEILW.2JNX.NW.N 

2  FORMAT! 1H1/7X.18H  NUMBER  OF  STATES-12/TX.24H  NUMBER  OF  DISTURBANCE 
1S-I2/7X.34H  NUMBER  OF  INTEGRATION  SYEPS/SEC.«I3/> 

READ(LR.3)TR.TF 

3  FORMAT! 2E 15, 8) 

WRITE!LW.4)TR.TF 

4  FORMAT (/7X.14H  RELEASE  TIME-E15.8/7X.13H  IMPACT  TIME-E15.8/) 

READ! 5 .2013) I SUF 

20*3  F0RMATI20I2) 

REAOILR.3003) IRUN 
3003  FORMAT! 12) 

KBI  TF-TR 
KBIG  •KBIG+I 
C  ZERO  ALL  ARRAYS 
C 

00  3060  1*1.3 
SI1)*0. 

DO  3060  Jnl.15 
EC  I *J)*0. 

VU.JI-O. 

3060  CONTINUE 

DO  6  1*1. NX 

OHOCtleO* 

ovom-o. 

XIRtU-O. 

SXRPC I )*0« 

SFRCI )*0# 

DO  5  J*1 .NX 
XRPCt . J)*0. 

HBC  t«J)*0. 

HRC I.J)*0. 

sigrc  I »J)*0.  Figure  96.  ADAP  3  Main  Program  Input/Output 

Listing 
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> 

X 


* 


i 


! 

i 

\ 


J 

i 


f 

? 

j 

< 

l 

l 

i 


i 


i 

) 


] 


* 


5 

j 

5 

J 


£ 

i 


- 


ST*  t;  j. 


-’^P.WT"  f‘u+v*-mr 


FK( I»J**0* 

FK1  (  I  »J)*0« 

DF( I»J)*0. 

X(I.J)«0. 

XDNU*J)*0* 

X0NH1 ( I c J)*G« 

FT!I»J)*0. 

PHIU*J)*0. 

PMION!!*J>*0. 

5  PHIDNMi f 1 *J)uq, 

DO  6  J*1 *NW 
G3K1|1*J)*0* 

G3KU*J>»0. 

DG3!1«J)*0. 

6  G3TtI.J)-0. 

DO  7  1*1 »NW 
DO  7  J*1 »NW 

7  W!  I  » J)-0* 

DO  480  1*1 *NW 

480  wu»n*i. 

DO  3005  1*1*17 
DO  3003  J*1 • 17 
3005  XRC I » J)*0« 

C 

C  READ  IN  X  *H  *H  »X  *F  Xl  *SI6  *DELT 
C  R  B  R  R  R  R  R  R 

CALL  1HPT(XR*17»17) 

CALL  !NPT|HB*13*15) 

CALL  INPT!HR»15»15) 

CALL  fNPTISIGR* 13*15) 
READ(LR»4Q0) (X8AR( I)»I*1»NX) 

READ (LR* 400) <SFR{ ! ) *I*1*NX ) 
READtLR.4001 (XIRl I ) *I«1,NX) 

400  FORMAT!5E12«5 ) 

READ! LR. 401 ) DELTR,DELTRS 

401  FORMAT! 2E12. 5) 

READtLR.713)  !  FTF!  1 )  vI*U10) 

713  FORMA7I5EU.4) 

DO  411  1-1*17 
DO  411  J*l. 17 
411  XRIJ,X)*XRU*J) 

WRITEILW*3004) 

3004  FORMAT! 1H1/7X.10H  XR  MATRIX/) 
CALL  HP! 17*17»NX*NX»XR ) 

C  REDUCE  XR  FROM  17BY17  TO  15BY15 
DO  3001  1-1*10 
DO  3001  J-13.17 
JJ-J-2 

XR(!*JJ)*XRU,J) 

XR!JJ»I)*XR!1.J) 

3001  CONTINUE 

DO  3002  1*13.17 
11*1-2 

DO  3002  J*13 » 17 


Figure  96.  ADAP  3  Main  Program  Input/  Output  Listing 
(continued) 
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—  . . iamii^ 


r\ne>  n  r»o 


COMPUTE  INITIAL  STATE  MEAN  AND  COVARIANC*  OF  HOMO 


DO  402  I«1*NX 
SXRP(I)«0« 

DO  402  J«1*NX 

402  SXRPt I )«$XRP ( I )4HBI I » J)*IXRAR( JJ+SFRI J)*DELTR)+HR* I *J)*XIRI J) 
WRITE (LW*403 I (SXRPI I ) *I«1 *NX  > 

403  FORMAT l 1H1/7X *27H  INITIAL  MEAN  STATE  OF  BOMB/C E25.8 ) > 

DO  404  I »1*NX 

DO  404  J-lsNX 
D(!*J)»0. 

DO  404  K“1*NX 

404  DU*J»«D(I*J)+HB(I.X)««XRCXiiJ>+SFR(X)*SFR(J»*DELTRS) 

DO  409  I“1*NX 

DO  409  J«I*NX 
XRPI I » J »*0« 

XRP<  J*l )*0* 

DO  409  X«1*NX 

409  XRPC I #J)«XRP( I » J)+D( I *k>*HD( J»X t 
DO  407  I  1*NX 
DO  407  J«i.NX 

DO  407  K«1*NX 

407  D(I.J>«D(!»J14HR<I»K)*SIGR<K»J! 

00  40$  I-1*NX 

DO  408  J«I**X 
DO  409  X-1»NX 

409  XRP(I.J>-XRPn.J>4DfI*X)*HR(J»X) 

408  XRP< J*I>«XRPU»JJ 
WRITCILW.4101 

410  FORMAT I1H1/7X.27H  INITIAL  COVARIANCE  OF  BOMB/) 

CALL  MPI 20*20 »NX«NX*XRP) 


READ  F { TR  >  »F « TR  *1 >  *G3 ( TR  >  *65 1 TR+1 J 


IFdRUN.EQ.Ol  GOTO  3030 
CALL  INPT|X3l9*13) 

CALL  INPTIPHI t 13*15 ) 

TIME«TR 


GOTO  5000 
3030  CONTINUE 

READ! ! TAPE »FK 
READ! ITAFE5G3X 
READ! ITAPE)F<1 
READ*' TAPS JG3K1 

CAIL  3KUFIFK. 20*20*1 ’ISUF»20*20,DI 
CALL  SHUFIFKl *20*20*1 • I SUF*20*20*D ) , 
CALL  SHUFIG3K *20*4*2* ISUF»20*4*D) 
CALL  SMUF(G3K1»20*4*2?ISUF*20*4*D) 


FLN»N 

OELT»I./FLN 


5-igure  9S.  ADAP  3  Main  Program  Input/ Output  Listing 
(continued) 


DELTH«.5*0ELT 
00  S  1*1 vNX 
A  PHl(!,!)«l. 

no  200  KK-1#KRIG1 

NN0UT»101 

00  100  NN*1,N 

1FI  KK—1 ) 103*101*103 

101  IF( NN-1 )103»l02tl03 

102  DO  104  I-l.NX 
00  105  J«1#NX 

105  FT  { I  »J)  ■FKi !  »,l) 

DO  104  J*1 »NW 
104  G3T<I#J)«G3K( I»J> 

103  CONTINUE 

CALL  INTE6(KX»NN> 

CALL  DIFFtKK  #NN> 

IF(NN«LT*NNOUT)  GOTO  4000 
4000  CONTINUE 
XVZ-XK-1 
XYWaNN 

TIME«-XYZ+XYW*DELT 
NNOUT-NNOUT+50 
100  CONTINUE 

IF(XK.NE.KBIG)  GOTO  205 

FKBIG»K8IG 

XX-TF-TR-FKBIG 

IFIXX.EG.O.)  GOTO  5000 

DELT-XX/FLN 

DELTH»,5«DELT 

205  1F(XK.EQ*KB!G1)  GOTO  200 
C 

C  AGE  DATA  POINT»AND  READ  IN  NEXT  DATA 
C 

DO  202  I«1»NX 
DO  201  J«1.NX 

201  FKU*J)«FX1CI,J| 

DO  202  J«1#NW 

202  G3K<  I *J) «G3<1 ( I #J> 

RFADC ITAPE1FX1 
READUTAPEIG3X1 

CALL  SHUFIFKl»20»20tl»!SUF*20,20*D) 
CALL  SHUFtG3Xl,20»4»2» ISUF,20,4»D> 

200  CONTINUE 
5000  CONTINUE 

WR 1TEILW #300 ) TIME 

300  FORMAT (1H1/7X.16H  XSuBF  MATRIX  T»F8*2/> 
CALL  MP(15»15#NX#NX#X) 

WRITEILW.301) 

301  FORMAT ( 1M1/7X  » 18H  PHIIT  »TR)  MATRIX/) 
CALL  MP(13*19»NX»NX#PHI) 

C 

C  COMPUTE  XCTI  TOTAL 
C 

DO  460  Ial»NX 


Figure  96.  ADAP  3  Main  Program  Input/Output  Listing 
(continued) 
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I 


J 

1 


no  460  J"1«NX 

0(1 » J)«0. 

DO  460  K«1»NX 

460  D( ! « J )«D 1 1 ♦ J l+PHI ( I »K )*XRP (X  » J) 

00  461  I“1»NX 

00  461  J*I»NX 
XR(J,J)-X(1  ,J) 

DO  462  K»1*NX 

462  XRI ! * J)«XR(  I*J)+D(I*<)*PHI(J*K) 

461  XRCJ»!)-XRU  »J1 
WRITEILW*463I 

463  FORMAT (1H1/7X.12H  X(T)  MATRIX/) 

CALL  MPI 17»17#NX*NX*XR  > 

DO  3061  J«l*15 
DO  3061  LL*1 » 15 

Ell  *  J  )*E  ( 1 » J  ) -fPHI  ( 1*  J  J»PHI  <  1  *LL)*XRPI LL» J ) 
E(2*JI«£(2*JM-Ph:i2»J)»PH!(2»LL)*XRP(LL*J) 

El 3#J)*E(3»J l+PHI ( 7 #J)*PHl (7  LL)*XRP(LL.J> 

3061  CONTINUE 

DO  3062  I -1*3 

sm«o. 

DC  3062  J*l»15 

3062  S(I)«Sin+E(  I.J) 

DO  3063  I *1*3 
DC  3063  J«l»15 
V(I*J).0. 

3063  V(1,J»«E(1,J)*100./S<!» 

WRITE(LW«3064) 

3064  FORMAT I 1H1/7X.29H  VARIANCE  CONTRIBUTION  MATRIX/) 

CALL  MP(3«15»3*15»E) 

WRITEILW.3C63) 

3063  FORMAT I ////7X»40H  NORMALIZED  VARIANCE  CONTRIBUTION  MATRIX/) 
CALL  MPC3.l5.3fl3.V) 

DO  715  !*1»NX 
DO  716  J"1 »NX 
HB<|,JI»0. 

716  HR ( I  * J)*0» 

HBU.n-l. 

715  HR( 1*1 

DO  717  I«1»NX 

HB( I#2)»HB( I *2)*FTF( IJ/FTFC2I 

717  HR(  I  #1  )»HR(  I  *1  J**FTF  ( I )  /FTF  ID 
DO  718  I *l*NX 

DO  718  J-l.NX 
D(I«J)«0. 

DO  718  K«1#NX 

718  D( I *Jl»D( I*J I+HBI I »R)»XR|K»J) 

DO  719  I“1*NX 

00  719  J»1*NX 
SIGRU.JJ-O. 

00  719  K«ltNX 

719  SI0R(I*J)«SIGR<I*J)4DU*K)*HB(J»K) 

WRITEILW*720) 

720  FORMAT! 1H1/7X*17H  XSUBH  WIG  MATR'X/) 


Figure  96.  ADAP  3  Main  Program  Input/ Output  Listing 
(continued) 
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1 


I 

l 

* 

i 

J 

« 

! 

| 

1 

! 

! 

i 


: 

i 

i 


3 


1 

P 

J 

1 


*  <  ■>»*^*j* 


adatom...  . . 


l  j.-.  . 


. .  rdf  id  .f  J 


CALL  MP(15*15i»15»15*SIGR) 
siemoSOATtstcRdri)) 
SIG!2)«S0RTIStGR!7»?!l 
SIG(3>«SaRTISI6RC2.2) ) 

IFC5IGRI1,!) .LT.SIGR<7t7>>  GOTO  721 

0XH»PI2 

QVH»Pl 

GOTO  722 

721  GSH-PI 
3YH-PI2 

722  CONTINUE 

CALL  CEPCI$!G*CEP> 

WRITEILW*2030)CEP(1> 

2030  FORMAT! ////7Xtl6H  CEP  HORIZONTAL-E15.8/) 
00  723  I*1#NX 

DO  723  J»1«NX 
0(l.J)-0. 

DO  723  K«1»NX 

723  DII*J>«DII,J>+HRIItX>*XR!K.J) 

00  724  I«1*NX 

DO  724  J»1*NX 
SIGRI ! 

DO  724  K*ltNX 

724  SIGRI I »J)«SIGR! I *J)4DI I *K)*HR( J»K ) 

SIGH  ?«SORT ( SIGR( 1 *1 ) ) 

SIG(2I»S0RT(SIGR(7» 7) ) 

SIG!3)«S0RTf S!6R(2*2> ) 
IFISIGRI2«2)*LT*SIGRC7*7))  GOTO  725 
0HV-PI2 

OYV*PI 
GOTO  726 
723  OHV-PI 
0YV-PI2 

726  CONTINUE 
WRITE !LW*727) 

727  FORMAT! 1H1/7X.17H  XSUBV  WIG  MATRIX/) 

CALL  MPIlS»13tl3*13*5lGR) 

CALL  CEPCISIG.CEPJ 
WRITElLWt2031)CEP(2) 

2031  FORMAT! ////7X*14H  CEP  VERTICAL-E15.8/) 
OHOID-OXH 

QM0I7)*0YH 
0V0I2)«0HV 
OV0I71-OYV 
DO  728  S>1»NX 
DO  728  J*l#NX 
D! I t J)"0» 

SIGRI I»J)«0. 

DO  728  K»l*NX 

Dll *J)aD! I *J)4HB! K» I  )*HPIK*  J)*OHOf  K  )• 

728  SI6RII»J>«SIGRIItJ>+HR!K.I>»HR(K*J)»QV0U) 
JH«0« 

jv«0* 

DO  729  I«1»NX 


Figure  96.  ADAP  3  Main  Program  Input/ Output  Listing 
(continued) 


00  729  J-1*NX 
JH-JH+XR!  J»J)»D!J.n 

729  JV- JV+XR ( I  *  J I ®SIGR ( J*  I J 
DO  730  I»1*NX 

00  730  J-l.NX 
OHII.J>-0. 

QVU.Jl-O. 

00  730  M-l.NX 
00  730  K-l.NX 

QH!  I » J)-QH( I * JI+PHI t  M • X ) *D!M»K)*PHI ( K»  J ) 

730  QV!  I  »J)«QV( | . J)+PHI I M • X l*5IGR!M.K >#PHI (X* J} 

WRITE ILW.472I 

*72  FORMAT! 1H1/7X.20H  WEIGHTING  MATRIX  QH/| 

CALL  MP( 20*20»NX.NX»QH) 

WRITEILW.473) 

473  FORMAT! 1H1/7X.20H  WEIGHTING  MATRIX  QV/> 

CALL  MP!20*20.NX*NX*QV) 

CEPH-SQRT!JH/P!) 

CEPV-SQRTIJV/PIJ 

WRITE! LW .465 >  QHO III .OHO i 7 ) • OVO ( 2  >  »QVO  <  7  > 

465  FORMAT! 1H1/7X.10H  OH(ltl)  -E13.8.10H  QH(7»7)  -E15.8.10H  QV(2.2)  -E 
115.8. 10H  QV17.7I  -E13.8/J 

WRITEILW.4661JH.JV 

466  FORMAT ! ///7X.7H  JSUBH-E15.8.7H  JSUBV-E15.8/ > 

WR I TE 1 LW #467 ) CEPH . CEP V 

467  FORMAT! //7X.18H  APPROXIMATE  CEPH-E15.8*18H  APPROXIMATE  CEPV«ri5.e/ 
1) 

IF1IRUN.NE.0)  GOTO  3090 
C  PUNCH  XF 

CALL  OUTP!15»13.NX»NX»X»LP) 

C  PUNCH  PHI 

CALL  OUTP!15.15.NX.NX.PhI»LPI 
3090  CONTINUE 
C 

C  ENLARGE  QH  FROM  15X13  TO  17X17  BEFORE  PUNCHING 
C 

DO  3070  1-1.15 
00  5070  J-1.15 
5070  0! I .JI-OHI I.J) 

00  3071  1-1.20 
DO  5071  J-1.20 

3071  QHII.JI-O. 

00  3081  1-1.10 
00  3081  J-1.10 
5081  QH!I*J|«DII»JJ 
DO  3072  1-13*17 
II-I-2 

00  3072  J-13  *17 
JJ-J-2 

3072  OH!J.J)-D!II.JJ) 

DO  3073  1-1*10 
00  3073  J-13 *17 
JJ-J-2 

QH! I.JI-D! I.JJf 

5077  QH! J.II-O! I » JJ) 

CALL  0UTP!2O*20»17*17.QH*LP) 

STOP  77 
END 


Figure  96.  ADAP  3  Main  Program  Input/ Output  Listing 
(concluded' 
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Table  XXIX.  List  of  Symbols  for  ADAP  3  (PERK) 


Quantity 


Mnemonic  y^*1  Input 


Description 


DELTB 


(F(tK+l)  '  F<*K))At  DF<^J) 
(Gg(tK+i)  -  Gg(tj^)k  .  ~.G3(I,  J) 


F<V 

FW 


G3(tK) 

33(tK+l) 

3,(t) 


FK(I,  J) 
FK1(I,  J) 


FKBIL 


FLN 


FT(I,  J) 


G3K(I,  J) 
G3K1(I,J) 
G3T(I,  J) 


Working  matrix 

Vector  containing  horizontal 
and  vertical  CEP 

Working  matrix 

Integration  step  size: 

At  =  1.  /FLN 

1/2  integration  step  size 

Forward  difference  of 
matrix  F 

Forward  difference  of 
matrix  G., 

X  Matrix  F  at  t^ 

X  Matrix  F  at  tj^+1 

KBIG  floated 

N  floated 

Matrix  F  at  each  integration 
step 

X  Matrix  Gg  at  t^. 

X  Matrix  Gg  at  tj^+1 

Matrix  Gg  at  each  integration 
step 

X  Switch-  =,  0  *  compute  weight 
*  /0=»  compute  CEP 

X  Integer  vector  used  to  shuffle 
matrices 


Table  XXIX.  L<st  of  Symbols  for  ADAP  3  (PERK)  (continued) 


Quantity 

Mnemonic 

Initial 

Value 

Input 

Description 

ITAPE 

2 

Logical  number  of  data  tape 

KBIG 

KBIG  integer  [tj  -  t^] 

KBIGl 

KBIGl  =  KBIG  +  1 

LR 

5 

Logical  number  input  tape:  Set 

LW 

9 

X 

Logical  number  output  tape:  Set 

N 

Number  of  times  through  inner 
integration  loop 

NNOUT 

10 

Counter  for  output  in  inner  integra¬ 
tion  loop:  Set 

NW 

X 

Number  of  disturbances 

NX 

X 

Order  covariance  equation 

0 

PHKI,  J) 

X 

State  transition  matrix 

• 

0 

n 

PHIDNG,  J) 

Current  derivative  of  state  transition 
matrix 

V1 

PHIDNM1 
(I,  J) 

Past  derivative  of  state  transition 
matrix 

0 

SIG(I) 

Vector  containing  the  square  root 
of  the  variances  of  x,  y,  and  z  at 
impact 

h 

TF 

X 

Impact  time 

t 

TIME 

Running  time 

V 

TR 

X 

Release  time 

W(I,J) 

X 

X(I,  J) 

State  covariance 

Table  XXIX.  List  of  Symbols  for  ADAP  3  (PERK)  (concluded) 


Quanity 

Mnemonic 

Initial 

Value 

Input 

Description 

X 

XBAR(I) 

Mean  output 

*n 

XDN(I,  J) 

Current  derivative  of  state  covariance 

Vl 

XDNM1AI,  J) 

Past  derivative  of  state  covariance 

X 

r 

XR(I,  J) 

X 

Covariance  at  release 

yw 

YWB(I) 

X 

Mean  input 

NN 

Integer  index  NN  =  1,  2, ,  N  inner 
loop 

KK 

Integer  index  KK  =  1,  2, ... ,  KBIGl 
outer  loop 

_J 


A  WjWfACJft  V-Au 


*«*»*«• <vcy». > i>-  t  j  i  ;  \  j,  ..J!J[M 


SUBROUTINE  SHUFCA*NR»NC*IRC»1SUF»NX*NY*D) 
DIMENSION  A(NR»NC) tD(20v20) »ISUF(20) 

GOTOt l*10t20 ) *IRC 

1  CONTINUE 
DO  2  I»1 *NX 
II«!SUFt I I 
DO  2  J»i #NY 

2  D( I » J)«A( I f  •  J  J 
DO  3  I"1»NX 
DO  3  J«l»NY 
JJ«tSUF(J» 

3  Al I »J)aD( |«JJ) 

GOTO  20 

10  CONTINUE 
DO  AO  I-1«NX 
D(I*1)«A(I*2) 

D( I *2)»A(I#3) 

A(I.2)-D(!*?I 
AO  A( I *3 )»DC I »1 ) 

DO  90  I“1*NX 
It«tSUF(II 
DO  90  J*1»A 
90  Dl I »J)*A(I! » J J 
DO  99  I-ltNX 
00  99  >1«A 
99  AII*J)«DU«J} 

20  CONTINUE 
RETURN 
END 


Figure  97.  Subroutine  SHUF  Program  Listing 
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Table  XXXI.  List  of  Symbols  for  Subroutine  SHUF 


b  i 


I 


i 


Mnemonic 

Input 

Description 

A(I,J) 

Matrix  to  be  shuffled 

D(I,  J) 

Working  matrix 

ISUF 

Vector  containing  indices  in  the  desired  order 

NC 

Number  of  columns  in  A 

NR 

Number  of  rows  in  A 

NX 

Number  of  rows  to  be  shuffled 

NY 

Number  of  columns  to  be  shuffled 

Table  XXXII.  List  of  Symbols  for  Subroutine  INTEG 


Mnemonic 

Input 

Description 

Cl 

Constant  used  in  integration  formula  when: 

KK  sNN  s  1  Cl  =  2 

Otherwise  Cl  =  3 

KK 

Integer  index  KK  =1,  2,  . . . ,  KBIG1 

NN 

Integer  index  NN  =1,  2,  . . . ,  N ;  all  other  symbols 
common  with  main  program  PERK 

Table  XXXIII.  List  of  Symbols  for  Subroutine  DIFF 


Mnemonic 

Input 

Description 

NN 

Integer  index,  i.  e. ,  NN  =1,  2,  . . . ,  N  when  NN  =  1 
=>  compute  new  DF  and  DG3  matrices  and  then  update 

F  and  G  3: 

NN  /I  ^  update  F  and  G3 

•  •  •  • 

All  other  symbols  common  with  mMn  program  PERK 
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SUBROUTINE  INTEG(KKtNN) 

COMMON  FK(20*20) *FX1(20»20)  »FT (15*15)  »0F(  15*15)  »X(  '.5*l!i)»XR(  17.17) 
COMMON  XDN<lS»l9)»XDNMm9*13)*PH!<15.15).PH!DNU5.15> 

COMMON  PMIDNMH 19*19 ) *G3KI 20*4) *G3K1< 20*4 >»G3T( 20*4 >*DG3( 20. 4) 
COMMON  CI20*4) »W(4*4) *XBAR( 19) *YWB( 12) »SIG<3 ) »CEP(2) 

COMMON  NX*NW*N*TF*TR»ICBIG*OELT»DELTH*LW*LR*mPE 

COMMON  XRP(20*20)  *SXRP(20)*SFR(20)*HB<15*13) *HR(15*15)  *SIGRI  1*5*1? ) 

COMMON  X!RI2O)*OH0l2O)*QVOI20)*QHI20*20)*QV<2O,20) 

1F(KK~1)3*1*3 

1  IF(NN«*1)3*2*3 

2  Cl-2. 

GOTO  4 

3  CI-3* 

4  CONTINUE 

AGE  DERIVATIVES 

DO  9  1*1 *NX 
DO  9  J*1*NX 
XDNM1 ( I  • JjaXDNI I • J) 

9  PHIDNM1I ! *J)*PMIDN( I »J) 

COMPUTE  DERIVATIVES 

DO  6  I*1»NX 
DO  6  J-l.NX 
XDN<I*J)*0. 

PHIDNI t*J)«0* 

DO  6  K*1«NX 

XDNI  I*J)*XDNC  I*J)+FT(!*X>-»XIK»J> 

6  PHIDN(I*J)*PHIDN(!*J)+FT(!*K)«PH!<K*J) 

DO  7  1*1 *NX 
DO  7  J»I»NX 

XDNII*J)«XDN(I*JKXDNIJ*I> 

7  XDNI J»I )*XDNC I »J) 

UO  8  1*1 *NX 
DO  8  J«1*NW 

CU.JJ.O* 

DO  8  K«1*NW 

8  C(I*J)«C(I*J)4G3T(I*K)»W(K*J) 

DO  9  I»1#NX 
DO  9  J*1*NX 
DO  9  K«1*NW 

9  XDNI I *J)«XDN( I »J)+Cl I *K)*G3T( J*K) 

INTEGRATE 

DO  10  1*1 *NX 
DO  10  J*1#NX 

X II  * J ) *XI I • J ) +DELTH* I C1»XDN 1 1  * J )-XDNMl 1 1  * J ) ) 

10  PHI  1 1  * J)»PHI I I*J)40ELVH*ICl*PHI0NI I *J)-PHIDNM1{ I »J) ) 

RETURN 

END 


Figure  99.  Subroutine  INTEG  Program  Listing 
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Figure  100.  Subroutine  DIFF  Flow  Diagram 


SUBROUTINF  DlFFIKK.NN) 

COMMON  FK(20»20)»FIC1(20»20)»FTC15»15)*DFC15»15)»X(15»15)»X!<(17*17) 
COMMON  XDN(15.15).XDNMU15.15).PHIC  15.151.PHIDNC15.15) 

COMMON  PHIDNM1 ( 15.15) «G3K( 20.4 ) .G3K1 ( 20*4 ) *G3T (20*4) *DG3(?<  .4) 
COMMON  CI20.4).W(4»4).XBARU5)*YWB(12).SIG(3).CFP(2) 

COMMON  NX.NW.N.TF.TR.KBIG.DELT.DELTH.LW.LR.ITAPE 

COMMON  XRP(20.20) .SXRPI 20 ) *SFR{ 20).HB(l5»l5).HR()5.15)«SIGR(15*l': ) 
COMMON  XIR(20).QHO(20)»OV0(20)*OH(20*20)»<)V(2C.20) 

IF(NN.GT.l)  GOTO  3 
DO  1  1-1 .NX 
DO  2  J-l.NX 
DF(I.J)-0. 

2  DFU.J)-fFKlU.J)-FK(I.J))»DELT 
DO  1  J-l.NW 

0G3tI.J)-0. 

1  DG3 ( I *J)-( G3X1 ( I f  J1*G3M I . J) )*DELT 

3  CONTINUE 

DO  4  I-l.NX 
DO  5  J-l.NX 

5  FTU.J)-FTU.J)-K>FCI.J) 

DO  4  J-l.NW 

4  GST  1 1 »J)-G3T ( I  * J)*DG3 i I  * J) 

RETURN 

END 

Figure  101.  Subroutine  DIFF  Program  Listing 
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Figure  102.  Subroutine  CEPC  Flow 
Diagram 


SUBROUTINE  CEPCtSIG*rFPl 
DIMENSION  SI6I3)»CrP(?) 

DO  1C 
ETA-SIG<2> 

IF(J.6T*1>  GOTO  1 
JJ*J 
GOTO  2 
1  JJ»2 
i  CONTINUE 
SIGMA-SIGIJJ 
IPISIGMA.EQ.O.J  GOTO  3 
RMO-ETA/SIGMA 
IMRHO.LE.l. >  GOTO  3 
3  CONTINUE 
S!GMA«SIG(2) 

IFISIGMA.EQ.O.  1  GOTO  10 
ETA*SIG<J) 

RHO-ETA/SIGMA 

3  !F(RHO,LT.,2)  GOTO  4 

CEP < JJ) ■•585*11 •+RHO)*SIt 
GOTO  10 

4  CEPCJJ|».6744*|l.*.24*RHO)*SlGMA 
10  CONTINUE 

RETURN 

END 


Figure  103.  Subroutine  CEPC 
Program  Listing 


Table  XXXIV.  List  of  Symbols  for  Subroutine  CEPC 


Mnemonic 

Value 

Units 

Input 

Output 

Description 

CEP(J) 

X 

Vector  containing  horizontal 
and  vertical  CEP 

ETA 

Used  in  computing  p 

RHO 

CEP  is  a  function  of  p 

SIG(I) 

Vector  containing  the  square 
root  of  the  variances  of  x,  y, 
and  z  at  impact 

SIGMA 


Used  in  computing  p 
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SECTION  VI 

CONCLUSIONS  AND  RECOMMENDATIONS 


The  overall  objectives  of  this  study  were  threefold:  (1)  development  of 
theoretical  analyses  and  mathematical  models  for  precision  weapon  delivery, 
(2)  development  and  documentation  of  computer  analysis  programs,  and  (3) 
demonstration  of  their  use.  The  major  emphasis  has  been  on  software  de¬ 
velopment. 

These  objectives  were  primarily  met.  The  analyses  and  model  develop¬ 
ments  are  reported  in  a  separate  document.  Volume  I.  The  developed  pro¬ 
grams  have  been  carefully  documented  in  Sections  I  through  Section  V. 

Testing  and  demonstration  of  the  use  of  the  programs  are  reported  in 
Volume  III.  Although  an  exhaustive  parametric  study  could  not  be  carried  out 
due  to  luck  of  time,  one  example  with  a  specified  iron  bomb  and  a  repre¬ 
sentative  tactical  fighter-bomber  aircraft  was  run  to  show  the  use  of  the 
programs. 

In  the  following,  the  results  and  recommendations  for  future  studies 
pertaining  to  the  work  reported  in  this  volume  are  presented. 


SIGNIFICANT  RESULTS 

•  The  work,  reported  here  established  the  total  dynamic  system 
approach  to  the  analysis  of  weapon  delivery  problem. 

•  The  chief  benefit  of  the  program  is  to  provide  software  for 
rapid  evaluation  of  system  performance. 

•  Each  subprogram  {ADAP  1,  2  and  3)  requires  32K  of 
memory  for  a  17th-order  system. 


RECOMMENDATIONS  FOR  FUTURE  SOFTWARE  DEVELOPMENT  WORK 

Some  of  the  interesting  issues  which  arose  in  the  course  of  the  software 
development  are  listed  below  for  future  work: 

•  Improve  the  nonstationary  performance  evaluation  program 
(ADAP  2)  with  respect  to  computing-time  requirements. 

The  computing  cost  can  be  reduced  by  more  elaborate 
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programming  (matrix  partitioning),  by  using  a  different 
discretization  technique,  and  by  the  Frobenius  transfor¬ 
mation.  Exploit  the  special  time-varying  nature  of  data, 

A(t)  =  Aq  +  A^. 

•  To  extend  the  performance  evaluation  capability,  add  cross 
covariance  differential  equations,  as  developed  on  page  167 
of  Volume  I  into  the  existing  software  for  nonoptima!  esti¬ 
mators. 

•  Improve  CEP  and  SEP  evaluations  by  integrating  the  probability 
density  function  of  the  states  developed  on  page  133  of 
Volume  I. 


CONCLUSIONS 

A  large-scale  system  software  for  the  analysis  and  design  of  precision 
weapon  delivery  systems  is  developed  in  this  volume.  The  programs  which 
implement  the  models  developed  in  Volume  I  are  documented  with  the  user 
in  mind. 
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APPEND1Y  I 


TABLE  INPUT,  LOOK-UP  '  *  INTERPOLATION 
PROCESSES  IN  ADAPS 


The  ADAP  System  contains  a  subroutine  called  FLOOK  that  is  capable  of 
inputting  data  tables  of  functions  of  one,  two  or  three  variables,  as  well  as 
performing  a  table  look-up  and  linear  interpolation  to  compute  function  values 
from  these  tables  [2], 

The  description  of  the  subroutine  FLOCK  is  briefly  presented  first  in 
the  following.  The  detailed  description  of  the  input,  look-up  and  interpolation 
logics  are  given  next.  The  flow  charts,  program  listings,  and  symbol  tables 
are  presented  on  pages  125  through  139. 


USAGE  OF  SUBROUTINE  FLOOK 

The  number  of  functions  the  subroutine  can  handle  is  limited  only  by  com¬ 
puter  storage  capacity.  The  subroutine  will  not  extrapolate;  i.  e. ,  it  will  not 
attempt  to  compute  a  function  value  beyond  the  range  of  its  variables.  The 
variables  are  effectiv  ely  limited  to  the  maximum  and  minimum  values  given 
in  the  data.  In  other  words,  if  a  function  value  is  requested  beyond  the  given 
range  of  its  variable,  the  function  value  computed  will  be  the  function  value 
at  the  last  variable  value  in  the  given  table.  This  constraint  is  shown  graphi¬ 
cally  for  a  one-variable  function  in  Figure  I- 1  with  dotted  lines. 


Figure  1-1.  One- Variable  Function  Constraint 


Preceding  page  blank 
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If  the  data  is  not  available  beyond  Vmax  in  Figure  I- 1,  then  the  user  can 
extrapolate  with  a  ruler  as  shown  by  the  dotted  line  and  add  the  extra  point  to 
the  input.  Otherwise  the  function  will  remain  constant  after  the  variable  V 
passes  the  last  stored  value,  Vniax. 

Execution  time  required  to  generate  a  table  function  is  nearly  independent 
of  the  number  of  points  stored  because  of  the  nature  of  the  functions  that  are 
normally  being  considered.  These  functions  are  continuous  and  normally  the 
change  in  variable  values  between  successive  table  look-ups  are  small  enough 
that  it  doesn't  bypass  more. than  one  stored  point.  (If  the  variables  change 
faster  than  this,  the  functions  are  not  being  generated  often  enough. )  Going 
on  this  assumption,  the  program  saves  the  variable  values  from  the  last  table 
look-up  and  starts  from  there. 

The  function  look-up  subroutine  can  be  instructed  to  compute  values  for 
all  functions  at  once,  any  continuous  block  of  functions,  or  a  single  function. 

It  is  most  expedient,  timewise,  to  make  as  few  calls  to  this  subroutine  as 
possible;  in  other  words,  compute  as  many  functions  as  possible  on  each  call. 
However,  it  is  also  time -effective  tv  generate  slow-varying  functions  at  a 
slower  rate  than  faster -varying  functions.  For  this  purpose,  it  pays  to  organ¬ 
ize  the  functions  in  blocks  according  to  their  rate  of  change  with  respect  to 
time. 

To  make  use  of  this  subroutine  the  user  must: 

•  Adjust  dimensions  in  the  subroutine. 

•  Set  up  correct  dimensions  and  calling  sequence  in  one  or 
more  subprograms. 

•  Punch  function  data  onto  cards. 

The  required  dimensions  are  denoted  in  subroutine  FLOOK  with  comment 
cards.  This  part  of  the  subroutine  is  shown  in  Figure  1-2. 

The  dimensions  on  the  arrays  VST  and  FUN  are  controlled  in  the  calling 
subroutines  since  they  appear  in  the  call  argument  list.  This  means  that  the 
size  to  which  they  are  dimensioned  in  FLOOK  is  not  important;  however,  they 
must  be  dimensioned.  The  dimension  sizes  must  be  identical  to  the  variable 
values  set  in  subroutine  FLOOK.  For  example,  the  comment  cards  in  Fig¬ 
ure  1-2  say  that  the  array  IFST  must  be  dimensioned  to  the  value  of  MNFV. 
Since  MNFV  =  150,  IFST  is  dimensioned  to  150  in  the  DIMENSION  statement. 
In  each  subroutine  calling  FLOOK,  VST  and  FUN  must  be  dimensioned  to 
MNUV  and  MNF,  respectively,  where  the  values  for  MNUV  and  MNF  are  set 
in  FLOOK.  If  more  than  one  subroutine  calls  FLOOK,  then  each  of  the  sub¬ 
routines  must  have  the  common  statement,  COMMON  VST,  FUN,  and  each 
subroutine  must  dimension  VST  and  FUN  to  the  correct  values. 
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SUBP.OUT I NE  F LOOK <  VST  .FUN » I STRT  » IENO ) 

COMMON/ADAP/MODE.AI 1000) 

EQUIVALENCE  <  MFN.MNF i » ( TABRO  »A<  997 ) ) 

DIMENSION  IFSTU50)  »IL$TU50 )» IFNI 80 ).FI 2500)  »LID<  150)  »V<  500) 
DIMENSION  VST<20>*NL<150)*DLT(3)»NFID(80>.IMSI100)»KICVC3).KVI3) 
DIMENSION  ft( 9 ) »FUN( 90 ) *XFI3 ) .RALFI20 • 

INTEGER  BLANK. RALF 

IFIM0DE.EQ.~1. AND. TABRD.NE.O.)  WTO  5510 
IFIRNDM.EQ. 123456#)  GOTO  510 
5510  RNOM-123456. 

C 

c  the  arrays  should  be  dimensioned  as  follows 

C  DIMENSION  A(200).IFSTtMNFV).ILSTIMNFV),!FN(MNF),F(MNFVL).LIDIMNFV). 

c  V(MNVVL)  *  VST  tMNUV )  .NLCMNFV)  »DLT  (  3)  .NFID(MNF)  •  IMSI  ’.KKV)  . 

C  KK V(3  >  »KVt  3) »R(9) .FUNIMNF ) *XF( 3 ) tRALF 120) 

c  where 

10  mkkv  *  100  (Mu.  No.  of  Variabl*  Value  Seta) 

mnfv  *  150  (Max.  Total  No.  of  Variables  Specified) 

MNF-80  (Max.  No.  of  Functions) 

mnfvl«2500  (Max.  No.  of  Total  Function  TabU  Valuta) 

MNVVL-500  (Max.  No.  of  Total  Variable  Valuta) 

mnuv  •  20  (Max.  No.  of  Distinct  Variables) 


Figure  1-2.  Dimensioning  of  Subroutine  FLOOK 


Calling  Sequence 

All  variables  and  functions  are  identified  by  numbers  in  the  function  data 
input.  The  numbers  used  for  input  are  also  used  to  identify  the  variables  and 
functions  in  the  calling  subroutines.  If  a  variable  is  assigned  the  interger  i 
and  a  function  the  integer  k  for  input  purposes,  they  are  identified  in  the 
calling  subroutine  by  VST(i)  and  FUN(k),  respectively. 

Before  FLOOK  is  called  to  generate  function  values,  the  required  variable 
values  must  be  transferred  into  ttys  appropriate  VST  array  position.  After 
the  return  from  FLOOK,  the  function  values  will  be  contained  in  the  FUN 
array.  As  an  example,  suppose  that  functions  identified  by  the  integers  7,  8, 

9,  10  and  14  are  to  be  generated;  the  functions  7,  8,  9  and  10  are  functions 
of  variables  identified  by  the  integers  1,  3,  4,  7,  9  and  11;  function  14  is  a 
function  of  the  two  variables  5  and  6.  The  coding  required  to  do  this  is: 

V(l)  =  vx 

V  (3)  =  V3 

V  (4)  =  V4 

V  (7)  =  V? 


ft 
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V  (9)  =  V9 
VU1)  =  vn 

CALL  FLOOK  (Vr  F,  7,  10) 

V<5)  =  V5 

V  (6)  =  V6 

CALL  FLC  DK  (V,  F,  14,  14) 

where  Vj,  Vg,  V4,  tkc. ,  represent  the  current  values  of  variables.  The 
function  values  will  be  contained  in  F  (7),  F  (8),  etc. 

The  general  form  of  the  CALL  statement  is 

CALL  FLOOK  <V,  F,  ISTRT,  IEND) 

where 

V  -  variable  array 
F  -  function  array 

ISTRT  -  number  of  first  function  to  be  generated 
IEND  -  number  of  last  function  to  be  generated 


How  to  Set  Up  Function  Table  Input 


A  function  table  ir-  a  table  of  function  values  tabulated  over  some  matrix 
of  variable  values.  r.‘ne  matrix  will  be  either  single-,  double-  or  triple- 
dimensioned,  depending  on  whether  the  function  has  1,  2  or  3  variables.  The 
variable  values  at  which  a  function  should  be  tabulated  are  left  to  the  discre¬ 
tion  of  the  user.  The  criteria  which  may  be  used  to  tabulate  the  aero  data 
is  to  pick  points  on  a  curve  so  that  a  new  curve  constructed  by  drawing 
straight-line  segments  between  the  points  which  lie  within  ±10  percent  of  the' 
original  curve.  This  is  fairly  complicated  for  a  three -variable  function  be¬ 
cause  it  will  be  represented  by  families  of  curves.  For  examp1e,  F(M,  a,  6) 
may  be  represented  by  the  curves  shown  in  Figure  1-3. 
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Figure  1-3.  Sample  Function  Curves 


If  the  6  values  chosen  are  6j,  63,  and  63  then  the  matrix  of  variable 
values  would  be: 


(Mr 

av 

V 

<Mr 

av 

V 

<Mr 

"r 

V 

<Mr 

01 2‘ 

5i> 

(Mr 

a2, 

«2> 

(Mr 

a2‘ 

V 

(Mr 

a2> 

V 

(Mr 

& 
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«2> 

(Mr 

a3. 

V 

(m9, 

kA 

ur 

V 

(My 

ar 

«2> 

(Mg, 

ar 

»3> 

{Mg, 

a2’ 

61> 

(Mg, 

<*2> 

V 

(m2- 

a2‘ 

V 

<m2. 

or  3, 

V 

(m2. 

a3. 

S2> 

(My 

QTg, 

V 

(Mg, 

*r 
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(M0, 

t . 

av 

V 

(Mg, 

**r 

V 

(m3. 

a2‘ 

V 

<M3, 

a  2' 

V 

(My 

a2’ 

V 

<m3. 

a3‘ 

sl> 

(M3. 

a3’ 

V 

(Mv., 

O 

Og, 

53 

To  identify  the  functions  and  variables  on  input  cards  they  must  be 
assigned  numbers.  It  is  also  efficient  to  identify  the  variable  value  sets 
[for  example  (Mj,  M2,  M3)]  by  numbers  because  a  single  variable  may 
assume  different  values  for  different  function  tables,  and  different  variables 
may  assume  the  same  set  of  values.  Therefore  the  first  thing  to  do,  once 
the  function*  tables  are  constructed,  is  to  assign  numbers  to  all  function- 
tables,  variables,  and  variable  value  sets. 


For  convenience  --  and  for  storage  capacity  --  the  numbering  should  start 
at  1  and  proceed  successively.  The  numbering  in  each  of  the  three  groups. 
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i.  e. «  variables,  variable  value  sets,  and  functions,  should  start  with  one. 
This  means  that  a  function,  a  variable,  and  a  variable  value  set  can  all  be 
assigned  the  same  number  and  still  be  defined  uniquely  in  the  program.  How¬ 
ever,  each  variable,  for  example,  must  be  assigned  a  unique  number  with 
respect  to  ail  other  variables.  As  an  example,  the  following  assignments 
might  be  made  for  the  sample  function  shown  in  Figure  1-3: 

a  -  1 

F  -3 

M  -7 

6-3 

mV  Mg,  Mg)  -  3 
(ar  a2,  a3)-l 

<«r  °2'  V  “‘5 

To  read  the  table  input,  a  call  to  FLOCK  is  made  in  the  initialization 
section  (i.  e.,  MODE  =  -1).  The  first  time  FLOOR  is  called,  it  reads  input 
table  data.  The  table  data  are  placed  after  the  RUN  card  in  the  input  data 
deck. 

The  data  for  a  function  table  is  set  up  in  one  continuous  block  of  cards 
which  are  made  up  of  the  four  sub-blocks 

1.  Function  header  card 

2.  Variable -value  cards 

3.  Function -table  value  cards 

4.  End  function  card 
and  must  appear  in  that  order. 

Function  Header  Card  -  This  card  identifies  the  table  by  the  following  data: 

•  Number  of  variables  in  the  function 

•  Which  variables  are  used  in  the  function  (their  numbers) 

•  The  variable  value  sets  over  which  the  function  is  tabulated 

•  Function  number 

•  If  one  exists,  the  number  of  the  previously  specified  function  table 
which  has  exactly  the  same  function  values  as  the  present  function 


The  function  header  card  format  is  shown  in  Table  I- 1,  and  a  card  for 
the  example  function  is  shown  in  Figure  1-4. 


Table  1-1.  Function  Header  Card  Format 


Columns 

Entry 

1-5 

Number  of  variables  in  the  function 

6-9 

Set  of  values  for  first  variable 

10-11 

First  variable 

12-15 

Set  of  values  for  second  variable 

16-17 

Second  variable 

18-21 

Set  of  values  for  third  variable 

22-23 

Third  variable 

24-27 

Function 

28-31 

Previous  function  with  same  values 

are  all  integer  fields  and  the  entries 
xerefore  be  "right  justified". 


NOTE:  These  i 
must  til 
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Variable  Value  Cards  --  The  numbers  in  each  variable  value  set  need  to  be 
specified  only  once,  if  a  set  in  referenced  on  the  function  header  card,  it 
must  either  be  given  in  this  block  or  have  been  given  in  the  variable -value 
section  of  a  previously  specified  function-table.  If  a  set  is  not  referenced  on 
the  function  header  card,  it  cannot  be  specified  in  this  section.  If  a  particular 
set  of  values  are  specified  in  twn  different  function-table  blocks,  the  entry  in 
the  second  block  will  be  ignored. 

Each  card  containing  variable  values  must  be  identified  by  entering  the 
set  number  on  the  card.  Any  number  of  cards  may  be  used  to  specify  a  set 
of  variable  values.  Each  card  has  nine  variable  value  fields  as  shown  in 
Table  1-2. 


For  the  example  function,  suppose  that  set  number  1  has  been  specified 
in  a  previous  function  table  block,  therefore,  the  cards  for  this  variable- 
value  section  would  be  as  shown  in  Figure  1-5  for 

(Mr  M2,  M3)  =  (0.  1,  0. 3,  0.  5) 

(6r  62,  63)  =  (0.0,  10.0,  20.0) 

Notice  that  the  variable  values  shown  are  "left  justified";  this  is  done 
to  make  it  easier  to  check  the  data  on  the  card,  but  is  not  necessary.  The 
variable -value  entries  can  be  placed  anywhere  in  a  field,  the  only  caution 
being  that  a  decimal  point  must  be  specified  somewhere  in  'p  field.  The 
variable  values  must  be  in  order  of  increasing  value,  i.  e, ,  v  h  the  least 
value  first  and  the  greatest  value  last. 

Function  ri«.ole  Values  --  Function  table  values  are  entered  on  exactly  the 
same  type  of  card  as  variable  values  except  the  field  used  for  set  number 
must  always  be  blank.  A  function  value  must  be  given  for  each  point  of  the 
matrix  constructed  from  the  variable -value  sets.  The  function  values  must 
be  specified  in  a  certain  order  and  that  order  is  given  in  the  sample  matrix 
shown  earlier,  when  reading  from  left  to  right  and  down.  Therefore  the 
function  values  must  be  in  the  order 

F(Mr  av  Sj) 

F(Mt,  ttj,  62) 

FtMj,  Oy  63) 

F(Mr  a2,  5j) 

FOVlj,  ar2,  63)  etc. 


In  other  words,  the  correct  order  is  with  the  last  variable  varying  fastest 
and  the  first  varying  slowest. 
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End  Function  Card  —  This  card  has  a  -1  in  columns  3  and  4  and  signals  the 
end  of  data  for  this  function  block.  Any  number  of  function  blocks  can  be 
placed  together  and  one  extra  -1  card  must  be  placed  after  the  last  function 
table  block. 


Function-Table  Input  Card  Set  —  The  complete  set  of  cards  prepared  for 
function  number  4,  used  in  ADA  PI,  is  shown  in  Figure  I-° 


TABLE  DATA  INPUT  SECTION  LOGIC 

The  function  values  for  all  function  tables  are  stored  in  the  single  array 
called  F  in  the  order  which  they  are  read,  and  the  variable  values  are  stored 
in  the  single  array  V  in  the  order  which  they  are  read.  It  is  necessary  to  be 
able  to  locate  the  function  values  and  variable  values  in  these  .ingle  arrays 
and  therefore  the  beginning  location  of  each  function  table,  ard  thr  beginning 
and  ending  location  of  each  variable  value  set  are  saved.  The  location  of 
a  variable  value  set  is  saved  because  it  is  necessary  to  know  the  number  of 
entires  in  each  set.  The  beginning  location  for  t  \ch  function  table  is  stored 
in  the  array  IFN  in  the  order  which  the  functions  ppear  in  the  input.  If 
IFN(5)  =  127,  it  means  the  fifth  function  read  has  its  function  table  starting  in 
F(127).  The  beginning  and  ending  locations  of  the  variable  sets  are  stored 
in  arrays  IFST  and  ILST,  respectively,  in  the  order  which  the  function 
variables  occurred  in  the  input.  Tnis  information  is  r»M  only  entered  in 
IFST  and  ILST  when  a  variable -value  set  is  read,  but  is  also  entered  every 
time  a  variable  references  that  set.  Therefore,  in  the  program  the  set 
number  associated  with  a  variable  is  not  saved,  but,  instead,  the  beginning 
and  ending  locations  of  that  set  are  saved. 

To  determine  which  entries  in  the  IFST  and  ILST  arrays  go  with  each 
function,  the  number  of  variables  in  each  function  is  stored  in  the  NL  array 
in  the  order  which  the  functions  are  read.  It  is  also  necessary  to  know  which 
variables  are  in  each  function  so  this  information  is  also  saved  in  the  NL 
array  by  making  the  number  of  variables  the  hundreds  digit  in  the  entry  and 
the  variable  numbers  the  10  and  l's  digit.  Therefore,  if  a  function  has  the 
three  variables.-  ?.2,  3  and  21,  then  the  NL  array  will  have  the  entries  312, 
303,  and  321. 

There  is  a  one-to-one  correspondence  between  the  entries  in  the  arrays 
IFST,  ILST  and  NL,  thus: 

IFST(10)  =  87 
1LST(10)  =  94 
NL(10)  =214 

contains  the  information  that  variable  number  14  appears  in  a  two-variable 
function  and  references  the  variable  value  set  contained  in  V(fi7)  through  V(94) 
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Figure  1-6.  Function-Table  Input  Card  Set 
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for  that  particular  function.  The  only  information  that  is  still  lacking  is 
which  function  the  above  information  is  associated  with.  To  obtain  this  infor¬ 
mation  the  function  numbers  are  stored  in  the  NF1D  array  in  the  order  which 
they  are  read.  To  associate  these  function  numbers  with  the  IFST,  ILST 
and  NF  arrays,  it  is  necessary  to  start  from  the  beginning,  i.  e. ,  at  IFST(l), 
ILST(l),  NL(1)  and  NFID(l),  and  keep  track  of  the  number  of  variables  in 
each  function.  For  example,  if  a  set  of  function  tables  are  read  in  the  order 

F  v*,0) 

G(y) 

H(6,  e,  a) 


where 


a 

H 

£ 

It 

,  Q'p2'  aF3^  *n  F 

0 

= 

02*  ^3* 

34) 

y 

=  (yr 

V 

6 

=  <6r 

«2'  V 

e 

=  (er 

V  e3* 

e4)  =  Op  02*  ^3» 

a 

''"Hi- 

aH2’  * 

H3’  ®H4’  °H5*  in  H 

and  the  following  numbers  are  assigned 
F  -2 
G  -  3 
H  -  5 
a  -  2 
0-3 
y-1 
6-5 
e  —  4 

k'Fl’  aF2'  aF3^  1 
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the'i 


Or  ^2*  ^3*  ^4} 


(yr  y2) 

-  10 

(®1»  ®2*  ®3^ 

-  17 

®2*  e3» 

-  5 

(*Hr  aH2*  aH3'  *H4'  aH5) 

-  3 

NFID(l)  «  2 


IFST(l)  =  1  ILST(l)  =  3  NL(1)  =  202 
IFST(2)  =  4  ILST(2)  =  7  NL(2)  =  203 


NFID(2)  =  3  IFST(3)  =  8  ILST(3)  =  9  NL<8)  =  101 

IFST(4)  =  10  ILST(4)  =  12  NL(4)  =  305 

NFID(3)  =  5  IFST(5)  =  4  ILST(5)  =  7  NL(5)  =  304 

IFST(6)  =  13  ILST(6)  =  17  NL(6)  =  302 

By  starting  at  NFID(l),  IFST(l),  ILST(l)  and  NL(1),  it  is  possible  to 
determine  that  IFST(3),  etc.,  corresponds  to  NFID(2),  i. e.,  function  num¬ 
ber  3,  by  noting  the  2  in  the  hundreds  digit  of  NL(1)  and  NL(2)  which  says 
that  IFST(l),  IFST(2),  ILST(l),  ILST(2),  NL(1)  and  NL(2)  correspond  to 
NFID(l). 

The  function  values  are  stored  in  the  F  array,  and  the  IFN  array  con¬ 
tains  the  starting  location  for  each  function  table,  therefore,  for  this  example 

1FN(1)  =  1 

IFN(2)  =  13 


IFN(3)  *  15 


One  other  array,  called  IMS,  is  used  during  data  read  to  determine 
which  variable  value  sets  have  already  been  read,  and  where  they  are  stored. 
This  array  must  be  dimensioned  at  least  as  large  as  the  largest  set  number 
used.  Initially,  before  any  data  is  read,  this  array  is  set  to  zero  and  then 
when  a  set  is  read,  the  IMS  arra;,  location  with  index  equal  to  the  set  number 
is  equated  to  the  index  of  the  IFST  array  location  which  contains  the  starting 
location  of  the  set  in  question.  For  example,  IMS(14)  =  5  means  that 
variable -value  set  number  V  has  been  read  and  is  stored  in  the  V  array 
starting  in  V(kl)  and  ending  in  V(k2)  wnere  kl  =  IFST(5)  and  k2  =  ILST(5). 

For  the  sample  input  given  above  the  IMS  array  would  be 
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IMS(l)  =  1 
IMS(3)  =  6 
IMS(5)  =  2 
IMS(IO)  =  3 
IMS(17)  =  4 

The  Table  Look-Up  section  of  FLOOK  makes  use  of  an  array  called  LID 
to  expedite  the  process  of  locating  variable  values.  This  array  contains 
information  about  the  location,  in  the  V  array,  of  all  variables  during  the 
previous  table  look-up.  For  example,  the  previous  value  of  a  in  the  function 
f2Q  may  have  had  a  value  which  laid  between  the  two  set  values  stored  in 
V{24)  and  V(25),  therefore,  the  LID  location  corresponding  to  a  in  f2o  will 
contain  a  24. 

In  other  words,  the  location  of  the  smallest  of  the  two  set  values  which 
bound  the  variable  value  is  saved  for  all  variables  in  all  functions. 

The  correspondence  between  the  variables  and  the  LID  array  is  the  same 
as  the  correspondence  between  the  variables  and  the  IFST  array.  The  LID 
array  is  initially  set  equal  to  the  IFST  array  and  this  is  done  in  the  Read 
Data  section. 

The  arrays  and  single  variables  shown  in  Tables  1-3  and  1-4  are  used 
to  store  the  data  temporarily  as  it  is  read  from  cards  and  before  it  is  stored 
permanently  in  the  arrays  discussed  above. 


Table  I~3.  Symbols  Used  to  Read  Function  Header  Card 


Symbol 

Usage 

KNV 

Number  of  variables 

KKV(l) 

KKV(2) 

KKV(3) 

Set  numbers  associated  with  the  first,  second  and 
third  variables,  respectively 

KV(1) 

KV(2) 

KV(3) 

First,  second  and  third  variables,  respectively 

KFN 

Function  number 

KFNS 

Number  of  the  previously  read  function  table  with  iden¬ 
tical  function  table  data 
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Table  1-4.  Symbols  Used  to  Read  Variable-  or  Function- 
Value  Cards 


Symbol 

Usage 

KNV1 

Set  number 

R(l) 

R(2) 

R(3) 

R(4) 

R(5) 

Variable  values  or  function  values 

R(6) 

R{7) 

R(8) 

R(9) 

If  any  of  the  Error  Stops  shown  in  the  FLOOR  flow  chart  prescribed  in 
Section  HI  are  reached,  then  the  following  message  is  printed  out: 

FUNCTION  TABLE  DATA  ERROR 
FUNCTION  NUMBER  nl 
NUMBER  OF  VARIABLES  =  n2 

VI  =  n3 

V2  =  n4 

V3  =  n5 

SET1  =  n6 

SET  2  =  n7 

SET3  =  nB 

NVVL  =  n9 

NFV  =  nlO 

NF  =  nl2 

KNV1  =  nl3 

Contained  in  this  message  are  the  values  of  all  variables  that  could  cause 
an  Error  Stop.  The  symbols  nl,  n2,  ...  etc.,  are  used  here  to  represent 
the  numbers  that  will  be  printed  out.  The  symbols  in  the  message  have  the 
meanings  given  in  Table  1-5. 
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LOOK-UP  AND  INTERPOLATION  SECTION  LOGIC 

This  section  of  the  subrovine  makes  use  of  the  information  stored  during 
the  reading  of  function  tables  tv  compute  values  for  all  functions  contained  in 
the  input.  The  process  used  is  to  first  ^cate  the  set  values  which  bound  the 
value  of  each  variable  in  the  function,  find  the  neighboring  function  values 
which  are  stored  in  the  tables,  and  then  interpolate  between  these  function 
values  to  obtain  the  approximate  function  value  at  the  current  value  of  the 
function  variables. 

The  interpolation  between  function  values  is  linear  and  is  described  in 
detail  in  the  following  paragraphs. 

Interpolation  Process 

Let  the  function  in  question  be  denoted  by  t(a,  0,  y )  and  suppose  that  func¬ 
tion  table  values  are  given  for  the  variable -value  sets  (aj,  a 3,  03,  ar4), 

Oj,  02*  £3)  and  y 2,  y^,  y4,  ^).  Suppose  also  that  at  the  current  time 
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a  2  *a  *ar3#  P1  £p  *p2  and  -54  sy  syg.  Graphically  the  situation  would  be 
something  like  Figure  1-7,  where  y  is  the  current  value  of  y  . 

V 


a  =  aj 


Figure  1-7.  Interpolation  Process 


Figure  1-7  shows  that  a  linear  interpolation  is  used  on  the  j3j  and  P2 

curves  to  obtain  values  for  f(aro»  Pl>  Tfc )»  ^2*  $2'  %)»  ^a3»  yc)  an(* 
f(org,  P2>  yj'  This  can  ^  wr&en  as 


^a2’  ^1*  yc)  2’  ^  1*  ^4^  + 

^2*^2*  yc}  ~  ^a2‘  ^2‘  ^ 

f(«3,^r  yc>  =  f(a3,Pv  y4)  + 
f(a3,P2’  yc>  =  f^a3»^2'  y4^  + 


[f(Qr2»^l/y5)  "  f(a2>Py  X 

[f(«2» ^2*  yb}  '  {^a2,^2f  y^X  y5-y4 
[fCo-g^l*  y5)  -  f(a3,Pr  74)]  x  y-Tjr 

[^q,3'^2'  y5^  “  f^a3*^2»  1^)3  x 


The  next  step  is  to  use  these  four  function  values  ana  .nterpolate  for 
f(a2,Pc,  yc)  and  f(a3,Pc,  yc)  where  Pc  is  the  current  value  of  P.  This  inter¬ 
polation  can  be  written  as 
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f(a2»^i>  y4) 

f(«2*^i‘  >5) 

f(a2»^2’  y4^ 
f(a2»^2*  y5* 
f(«3*0i»  y4> 
f(»3^r  V 

^®3»  ^2*  V 
f(<*3.02,  y5> 

be  located  in  the  stored  function  tables  via  table  look-up  process,  which  is 
discussed  in  what  follows. 

Table  Look-up  Process 


The  general  idea  used  in  the  table  look-up  is  that  if  the  starting  location 
of  a  table  of  function  values  is  known  and  the  function  values  are  stored  in 
the  correct  order,  i.  e. ,  with  the  last  variable  varying  fastest  and  the  first 
varying  slowest,  it  is  possible  to  compute  the  location  of  f(«j,  fiy  y^),  where 
q^,  $j,  andy^  are  contained  in  the  variable  value  sets  used  to  cdnstruct  the 
table.  If  the  starting  location  of  the  function  table  is  denoted  by  LSr  and  the 
function  table  contains  values  for  the  sets  (oj,  q-2,  ...»  ajJ,  (3i,  pjj,  ...»  3m) 
and  (yj,  Y2,  ...»  ypi)  then  the  location  of  ffaj,  3j»  y^),  call  it  Lf^  ^  jj,  is 

Lf  .  ,  =  LS.+ NQ-1+ M<i-1)]+  (k-1) 

*»  J#  * 

Using  this  equation,  it  is  possible  to  obtain  the  following  equations  which 
can  be  used  to  compute  the  locations  of  all  eight  function  values: 


LWk =  LfM.k+NM 

UUJM.k  =  L,i.j.k+N 


L^i+1,  j+1,  k  =  L^i,  j+l,  k  + 
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Lf. 


i,  3+1,  k+1 


Lfi,  jfl,k+  1 


Lf. 


i+1,  j+l,  k+1 


3  Lfi+l,j+l,  k+  1 


Lfi,j,k+1  =  Lfi,j,k  +  1 


Lfi+l,j,  k+1  =  Lfi+l,j,  k+1 


With  the  function  values  located,  the  linear  interpolation  can  be  performed 
to  obtain  f(oc,  /3C,  yc)  as  described  previously. 


The  information  required  to  compute  the  above  function  value  locations 
was  stored  di  ring  input  read.  The  beginning  location  of  each  function  table 
was  stored  in  the  IFN  array  and  the  beginning  and  ending  location  of  each 
variable  value  set  was  stored  in  the  IFST  and  1LST  arrays,  respectively. 
Therefore,  the  values  of  L,  M  and  N  can  be  computed  from  the  ILST  and 
IFST  arrays,  in  particular 

L  =  ILST(n)  -  IFST(n)  +  1 

M  =  ILST(ntl)  -  IFST(n+l)+  1 

N  =  iLST(n+2)  -  IFST(rr+2>  +  1 


In  the  above  formula,  n  shows  the  inputting  sequence  of  the  variable 
value  sets  occurred  during  the  input.  For  example: 

IFST(IO)  =  87 

ILST(IO)  =  94 

means  that  the  tenth  variable  value  set  read  starts  at  the  location  V{87)  and 
ends  at  the  location  V(94). 

The  values  for  i,  j,  and  k  can  be  found  by  searching  the  respective 
variable  value  sets  for  the  set  values  which  bound  the  current  variable  value. 
The  set  values  are  stored  in  the  V  array,  and  the  set  associated  with  a,  for 
example,  is  stored  in  V(kl)  through  V(k2),  where  kl  =  IFST(n)  and  k2  = 
ILST(n).  If  V(il)  Stt  s  V(i2),  where  kl  s  il  £  i2  sk2  then  i  *  il  -  kl  +  1,  and 

11  will  be  stored  in  OD(n)  to  be  used  as  a  starting  point  the  next  time.  The 
IFN,  IFST  and  ILST  arrays  contain  data  stored  in  the  order  which  the  input 
was  read,  and  can  be  unscrambled  by  use  of  the  NFID  array.  If  il  <  kl  or 

12  >k2  then  the  function  value  computed  will  be  the  function  value  at  the  last 
variable  value  in  the  table  (Figure  I-J.). 
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The  final  values  of  all  functions  after  interpolation  are  contained  in  the 
FUN  array,  and  their  location  in  that  array  is  defined  by  the  numbers 
assigned  to  them.  For  example,  the  value  of  C-p(a,  6ej),  which  is  assigned 
the  number  7,  can  be  found  in  FUN(7).  The  current  value  of  each  variable 
is  stored  in  the  VST  array  in  the  same  manner.  In  summary,  if  the  required 
variable  values  are  set  in  the  VST  array  before  executing  the  Table  Look-Up 
and  Interpolation  section  then  the  result  will  be  a  corresponding  functior 
value,  stored  in  the  FUN  array,  for  all  function  tables  in  storage. 
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The  stationary  optimization  program  (DIAK)  is  used  in  ADAPS  to  compute 
the  steady-state  optimal  controller  and  the  estimator  gains  for  a  frozen-time- 
point  linear-data  set. 


Table  II- 1  contains  the  subroutines  in  this  program,  as  well  as  references 
to  the  analytical  developments  in  Volume  I.  The  first  group  of  subroutines  are 
the  basic  subroutines.  The  second  group  corresponds  to  data  manipulation 
subroutines.  The  third  group  is  the  auxiliary  set  of  subroutines,  and  they 
are  the  same  as  those  described  in  the  ADAP2(DISCOP)  program  in  Section  IV. 


In  the  following  the  input/output  description  is  given  first.  Then  the  main 
program  and  its  subroutines  are  presented. 


|  DIAK  INPUT/CUTPUT 

i 

i 

!  INPUT  DESCRIPTION 

1 

i 

j  Input  for  DIAK  is  in  the  form  of  cards  and/or  data  stored  on  a  permanent 

|  disc  file. 

Card  Data  Input 

The  first  group  of  cards  to  be  read  is  cards  1-4  which  provide  basic  pro¬ 
gram  cKta.  Their  formats  are  shown  in  Table  II-2. 

The  next  input  occurs  in  SDATA  subroutine  when  IDATA  /  0.  In  „uis  case 
the  matrices  FF,  GGl,  GG3  and  H2  are  input  by  subroutine  INPT.  Subse- 
|  quent  inputs  occur  in  the  subroutine  DATAGEN.  When  IREADC  f  0,  H,  D,  Q 

matrices  are  input  by  calling  subroutine  INPT.  If  IREADE  ^  0  the  matrices 
|  Wl,  W2  and  HH2  are  input  in  the  same  manner.  The  next  input  may  occur  in 

;  subroutine  CGAINS.  If  INPC  =  1,  a  constant  is  read  in  under  the  FORMAT 

I  (G10. 4).  If  INPC  =  2  the  initial  controller  gain  matrix  is  read  in  by  subrou¬ 

tine  INPT.  The  last  input  may  occur  in  subroutine  EGAINS  when  INPE  =  1. 
j  In  this  case  the  initial  value  of  the  estimation  error  covariance  is  read  in. 

j  The  complete  card  data  input  deck  for  DIAK  is  shown  in  Figure  II- 1. 


\ 

) 

I 

5 


i 


273 


Table  II- 1.  DIAK  Subroutine  Summary 
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Table  II-2.  Format  for  DIAK  Data  Input  Cards  1- 


Card/  Format 

Column 

Quantity 

Description 

1/(412) 

1-2 

IT  A  PC 

ITAPC  ■  0  »  Controller  gains  are  not  computed 
ITAPC  4  0  »  Controller  gains  are  computed 

3-4 

ITAPE 

ITAPE  »  0  »  Estimator  gains  are  not  computed 

ITAPE  0  >*  Estimator  gains  are  computed 

5-6 

ITAPPF 

Logical  number  for  permanent  disc  file 

8 

IDATA 

IDATA  *  0  n  No  linear  data  input  through  cards 
IDATA  7*  0  <•  Linear  data  input  through  cards 

2/(412) 

1-2 

IMAX 

Maximum  number  of  inner-loop  iterations 

3-4 

ITER 

Maximum  number  of  outer-loop  iterations 

5-6 

IN  PC 

IN  PC  =  1  »  Starting  costate  matrix  IC  is  input 

IN  PC  a  2  **  Starting  gain  matrix  K  is  input 

IN  PC  *  3  •*  Starting  costate  matrix  is  from  the 
previous  run  in  the  memory 

7-8 

IN  PE 

INPE  =  1  *  Input  initial  error  covariance  matrix 

INPE  3  2  s*  Initial  covariance  matrix  is  from 
previous  run  in  the  memory 

3/(512) 

1-2 

NX 

Number  of  state  variables 

3-4 

NU 

Number  of  controls 

5-6 

NR 

Number  of  responses 

7-8 

NM 

Number  of  measurements 

9-10 

NW 

Number  of  disturbances 

4/(312) 

1-2 

NDPTS 

Data  point  for  the  frozen  time  point  linear  data 

3-4 

IREADC 

IREADC  3  0  »  D,  H,  Q  matrices  for  controller 
are  input 

IREADC  4  0  »  D,  H,  Q  matrices  are  in  the  memory 

5-6 

IREADE 

IREADE  ■  0  »  Wj  W2  HH2  matrices  for  estimator 
are  input 

IREADE  t*4  »  Wj  W2  HH2  matrices  are  in  the 
memory 

iflfaa . - . iaaiifla 


Figure  II- 1.  DIAK  Card  Input  Data  Deck 


This  type  of  input  occurs  first  in  subroutine  DATAGEN.  The  linear  data 
FF,  GGl,  GG2,  GG3,  H2and  VW  are  read  in  from  the  permanent  disc  file 
ITAPPF  for  the  specified  frozen-time  point  NDPTS.  Subsequently  the  data 
written  on  the  scratch  tapes  ITAPC  and  ITAPE  are  input  in  subroutine  CGAINS 
and  EGAINS,  respectively. 


OUTPUT  DESCRIPTION 

The  output  from  DIAK  is  in  the  print  form  only.  The  parameters  IMAX, 
ITER,  NX,  NR,  NU,  EE  are  printed  out  by  subroutine  CGAINS.  Subsequently, 
the  matrices  F,  Gl,  G2,  H,  D,  A,  E,  Q  are  printed  out.  Then  the  costale 
matrix  P  and  optimal  gain  matrix  K  are  printed  out.  If  convergence  is  not 
obtained,  a  message  is  printed  out  accordingly.  The  parameters  corresponding 
to  the  estimator  computations,  IMAX,  ITER,  NX,  NW,  NM,  EE  are  printed 
out  by  subroutine  EGAINS. 

A 

Subsequently,  the  minimum  errorA  covariance  matrix  P,  optimal  estimator 
gains  L,  the  covariance  of  estimator  X,  and  the  total  covariance  X  are  printed 
out  using  subroutine  INPT. 


PROGRAM  DIAK  DESCRIPTION 


MAIN  PROGRAM 

Program  DIAK  generates  for  time -invariant  systems  the  steady-state 
values  of  the  optimal  controller  gains,  optimal  estimator  gains  as  well  as 
optimal  error  covariance  and  state  covariance  matrices.  This  program  imple¬ 
ments  the  analysis  of  Section  X  of  Volume  I. 

The  main  program  reads  at  the  beginning  the  first  four  cards  in  the  input 
data  deck.  If  IDATA  ^  0  it  also  reads  FF,  GGl,  GG3,  and  H2  matrices  by 
calling  SDATA.  Then  for  the  given  frozen-time  point,  the  complete  linear 
data  for  the  controller  and  the  estimator  computations  are  prepared  by  sub¬ 
routine  DATAGEN.  Calls  to  controller  and  estimator  design  subroutines 
are  made  depending  on  the  ITAPC  and  ITAPE  flags. 

The  design  algorithms  are  double -iterative.  If  the  solutions  do  not  con¬ 
verge,  exit  occurs  after  a  specified  number  of  iterations. 

After  one  cycle,  the  program  goes  back  to  the  beginning  and  reads  a  new 
set  of  data.  When  it  finds  ITAPC  =  ITAPE  =  0,  it  3tops. 

The  flow  diagram  for  program  DIAK  is  shown  in  Figure  II-2  and  its  pro¬ 
gram  listing  i.ti  Figure  II-3. 
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TESTIF  ITAPC  *  0,  ITAPE  ■  0 


READ 

IMAX,  ITER,  INPC,  INPE 


READ  NX,  NU,  NR,  NM,  NW 


READ 

NDPTS,  IREADC.  IREADE 


Figure  II-2.  DIAK  Flow  Diagram 


TEST  IF  IOATA  -  0 


TEST  IF  ITAPC  -  0 


CALL  CGAINS 


r  >  YES  /  '■ 

[test IF ITERC >ITER  ) — — — <  STOP 31 


TEST  IF  ITAPE  *  0 


CALL  EGAINS 


[TEST  IFITERE..ITER, 


GO  TO  1000 


n  r» 


PROGRAM  OIA<( INPUT »OuTPUT.TAPE5-lNPU7tTAPE9«OUTPUT*TAPE6»TAPE7*TAP 
1F8) 

MAIN  PROGRAM  OIAK 

COMMON  nx*nu*nr*nw*nm*nxm*num,nrm,nwm,nmm»nn»ee 

DIMENSION  AK(4,17) 

LR-5 
NXM-17 
NUM«4 
NRM-21 
NMM«12 
NWM-3 
EE*. 001 
NN«3 
1000  CONTINUE 

READ  C  LR . 1 > I T  APC  « I T APE • I TAPPF  » l  DAT  A 

1  FORMATI4I2) 

IF(ITAPC.EO.O.AND.ITAPE.FO.O)  STOP  33 
READ!  LRt2  UMAX. ITER*  INPC.INPE 

2  FORMAT14I2) 

READtLR»3)NX»NU*NR*NM*NW 

3  FORMAT(9I2) 

REAP  I-''-  '  1NDPTS* IREAnC*  ’READE 

4  FOP  *1  JI2> 

l*\.  A.EO.O)  GO  .  _/  8 
C/.LL  ATAIITAPPF.NDPTS) 

8  CO'  IE 

CAl  ■'  »  ITAPC.ITAPEi  'PPF.NDPfS.IREADC.IREAPE) 

IFU  GOTO  10 

CALL  C  JS(aK.ITAPC.IMAX.ITER*ITERC»INPC) 

IF(  ITER.uT.lTERC)  STOP  31 
10  IFl ITAPe.EO.O)  GOTO  1000 

CALL  E6A I NS ( AX • I  TAPE  » I MAX  *  I  TER  *ITERE*INPE) 

F(ITER.LT.ITERE)  STOP  32 
TO  1000 
f!  O 


Figure  II- 3.  DIAK  Program  Listing 


BASIC  SUBROUTINES 


Subroutine  CGAINS 

Subroutine  CGAINS  generates  the  steady-state  values  of  the  costate  and 
the  controller  gains  in  accordance  with  the  analysis  presented  in  Section  X,  of 
Volume  I. 

At  the  beginning  of  the  program  the  equivalent  matrices  A,  E  and  Q  are 
generated,  and  all  matrices  involved  in  controller  computation  (F,  Gl,  G2, 

H,  D,  A,  E,  Q)  are  printed  out.  There  are  three  starting  conditions  in  the 
iterative  solution:  (a)  PQ  =  IC,  (b)  PQ  is  computed  from  K0,  and  (c)  PQ  is 
set  to  what  is  already  in  the  memory. 

For  convergence  each  distinct  element  of  the  symmetrical  costate  matrix 
P  is  subjected  to  the  ratio  test.  If  the  NC  elements  pass  the  test,  conver¬ 
gence  is  obtained,  and  normal  exit  occurs.  The  optimal  gain  matrix  is  com¬ 
puted  and  printed  out  along  with  the  costate  (Riccati)  matrix.  If  convergence 
is  not  obtained,  a  message  is  printed  out  indicating  the  situation. 

For  each  fixed  right-hand  side,  the  costate  is  computed  by  calling  sub¬ 
routine  CAL. 

The  subroutine  CGAINS  flow  diagram  is  shown  in  Figure  H-4  and  its 
program  listing  in  Figure  II- 5. 


Subroutine  CAL 


Subroutine  CAL  generates  the  Lyapunov  matrix  by  solving  iteratively  the 
Lyapunov  equation  for  IT  =  1,  and  the  covariance  equation  for  IT  =  2.  The 
same  test  as  described  in  subroutine  CGAINS  is  used  here  for  convergence. 

If  convergence  has  not  occurred  in  IMAX  iterations,  exit  occurs  with  a 
message  of  iteration  number.  The  subroutine  CAL  flow  diagram  is  shown 
in  Figure  H-6  and  its  program  listing  in  Figure  II-7. 


Subroutine  EGAINS 

Subroutine  EGAINS  generates  the  optimal  estimator  gains,  minimum 
estimation  error  covariance  and  the  optimal  covariance  of  state  as  developed 
in  Section  X  of  Volume  I. 

A 

The  starting  value  PQ  for  the  iterative  solution  is  either  entered  (INPE=  1) 
or  obtained  from  the  previous  solution  left  in  the  memory  (INPE  =2).  When 
convergence  occurs,  the  error  covariance  matrix  is  printed  out.  Subsequently, 
the  optimal  gains  and  total  covariance  are  completed  and  printed  out. 

The  subroutine  EGAINS  flow  diagram  is  shown  in  Figure  II-8  and  its 
program  listing  in  Figure  II-9. 
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Figure  tI  -4.  Subroutine  CGAINS 
Flow  Diagram 
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■1C1'P-QQD)*1D'UH 

TEST  IF 
ITERC  <  ITER 


1  NO 

1  «01l\ 

& 

WRITE  ^ 

MN  MATRIX  X 

# - ■ 

1 4010  \ 

RIC 

GA 

WRITE 

CATI  MATRIX  P 

IN  MATRIX,  K 

autine  CGAINS  Flow  Diagram 
iluded) 


r\  n  n 


SUBROUT I NE  CGA INS ( AK.I TAPC. I MAX  » I  TER  » I TERC  *  I NP ) 

C  DOUBLV- ITERATIVE  ALGORITHM  FOR  SOLVING  ALGEBRAIC  RICCATI  EQUATION 
COMMON  NX*NU»NR*NW*NM*NXM*NUM»NRM*NWM»NMM*NN*EE 
DIMENSION  FC  17*17)  *61 1 17*4)  *62 1 17*3)  *AN(  17.17)  *EU7*17) 

DIMENSION  Q{ 21*21) *QN( 17*17) »EP( 17 *17) *PEPt 17*17) »P I 17 *17) 
DIMENSION  H(21»17)*D(21*4)*AK(4*17) *P! (17*17) *000(A»4) *KWA(4 ) 
DIMENSION  W( 21*21 ) *W1 ( 21 *21 ) *NDK( 21 *17) *KKWA( 17) *00121 *21 ) 
DIMENSION  W2 (4*17) 

DIMENSION  A( 17*17) 

WR I TE ( 9 ♦ 4002  > I M AX ♦ I  TER 

4002  FORMAT ( 1H1/7X  *37H  MAX  NUMBER  OF  INNER-LOOP  ITERATIONS  I3.37H  MAX  N 
1UMBER  OF  OUTER-LOOP  ITERATIONS  13//) 

WRITE (9*4003 )NX*NR*NU»EE 

4003  FORMAT (//7X.18H  ORDER  OF  SYSTEM  -I3/7X.22H  NUMBER  OF  RESPONSES  -13 
1/7X.21H  NUMBER  OF  CONTROLS  -I3/7X.18H  CONVERG*  FACTOR  -F10.8//) 

NC»(NX*(NX+l))/2 

FN-NX 

C  CALCULATE  A»E.Q  IN  RICCATI  EQUATION  PA+A*P-PEP-fQ»0 

ZERO  ARRAYS 

9099  CONTINUE 
ITERC-0 

DO  8020  I-lfNX 
DO  8013  J-l.NX 
F  (I.JI-O* 

A  (I.J)-O. 

AN  (I»J)»0. 

F  <I*J)-0. 

ON  <I,J)-0. 

EP  U.J)«0, 

PEP ( I »J) >0* 

PI  (I.J)«0* 

8013  CONTINUE 

DO  1700  J-l.NR 
H(J»I)«0. 

HDX(J.I)-0. 

1700  CONTINUE 

DO  8014  J-l.NU 
G1 ( I »J)*0* 

8014  AK ( J» I )«0» 

DO  8015  J-l.NN 

8015  G2(l«J)-0* 

8020  CONTINUE 

DO  8045  I-l.NR 
DO  8045  J-l.NR 
Q(I*J)-0# 

00 i I *J)-0* 

WCI,J)-0* 

Wl(I*J>-0. 

8045  CONTINUE 

REWIND  ITAPC 

READ! ITAPC) ( (F(I*J)*J-1*NX)*I-1 »NX) 

READ!  ITAPC)  (IG1U*J)»J-1*NU)»I-1»NX) 


Figure  II-5.  Subroutine  CGAINS  Program  Listing 


READ( ITAPCH (H< !»J).J*1»NX) «I*1»NR) 

READ<  ITAPCH  (D(  I* J)  .J-ltNU)  ,1-1, NR) 

R£AD( ITAPC) < I  Of  I • J ) .J-l.NR) .1*1 *NR) 

00  873  1*1. NR 
00  875  J-I.NR 
0QI1.J>*Q(I»J> 

00 (J. I )*Q( 1 • J ) 

875  0<J»I)*Q(I.J) 

DO  4  1*1 »NU 
DO  4  Jal.NR 
WC I.J)*0. 

DO  4  K«1»NR 

4  W(I»J)*WU»JJ+D(K.n*QU.J) 

DO  3  I-l.NU 

DO  5  J-l.NU 

000 ( ! . J) *0. 

00  3  K-l.NR 

5  000  (  !  *J)*DOD(  F.J)+W(!.K}*D(K«J) 
IF(NU-1>302.302.301 

302  000(1.11*1. /D0D(1.1> 

GOTO  303 

301  CONTINUE 

CALL  TDl NVR ( I  SOL . I DSOL » NU . NU .DQD.NUX  »KWA  »DET ) 
I F C ( I SOL* I DS0L>“2 1 6 .6 . 7 

7  STOP  66 

6  CONTINUE 

303  CONTINUE 

00  8  1*1. NU 
00  6  J*1 .NX 
Will »J)*0* 

00  8  K*1.NR 

8  W1 ( I  * J )»W1  (I  • J )+W ( I >K ) *H ( K » J ) 

00  9  1*1 .NU 

DO  9  J-l.NX 
WU.J>*0. 

DO  9  K«1.NU 

9  W( I . J)*W( I .J )+DOD( I *K )*W1 ( K • J) 

00  10  I*1.NX  ' 

00  10  J-l.NX 
A(I.JI*F(I.J) 

DO  11  K-l.NU 

11  A(I.J)*A(1.J)»G1(!»K)*W(K.J) 

10  ANU.J)-A(I.J) 

DO  12  1*1. NX 
00  12  J*1.NX 
ONI  I »J)*0. 

00  12  K*1.NU 

12  ONI  I .J)*ON( I *J)—W1 (K.I )*M(K.J) 

00  13  1*1. NR 

DO  13  J*1 .NX 
W1(I»J)»0. 

DO  13  X*1.NR 

13  Will  •  J)  *W1  (  I«J)+0(I«K)*K(K.J) 

00  14  1*1. NX 


Figure  II- 5.  Subroutine  CGAINS  Program  Listing  (continued 
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DO  14  J»I »NX 
OUf  JJ-ONU.J) 

DO  15  K»1 #NR 

15  Q!I*J)»Q(I*J)+H!IC*1  )*W1!K*J) 
0(J.I1«0(1.J1 
QNI!,J)«OU.J* 

14  QN!J*I)*Q(1.J> 

DO  16  I«1 *NU 
DO  16  J«1#NX 
W2( I »J)"0* 

DO  16  K-ltNU 

16  W2(I*JJ«W2(t«J)+DQD( !»K)»G1(J»K) 
DO  17  I»1#NX 

DO  17  J*I »NX 
E(UJ)*0. 

DO  18  K"1 »NU 

18  E!I»J)»EII*J)+GliI.K>*W2!K»J) 

)7  E!J#n»E!I#J> 

WRITE!9»20) 

CALL  MP!NXM»NXM»NX.NX*F) 

WRITE (9 #21) 

CALL  MP!NXM»NUM*NX*NU*Gl ) 
WRITE(9»22) 

CALL  MP!NXM#3*NX»3»G2) 
WRITE(9#23) 

CALL  MP!NRM*NXM»NR.NX»H) 
WRITEI9*24) 

CALL  MP!NRM*NUM#NR»Nu»D) 
WRITE!9»25l 

CALL  MP!NXM»NXM»NX,NX»A> 
WRITE(9#26) 

CALL  MP!NXM.NXM*NX.NX»E) 

WR1 TE!9»27) 

CALL  MP!NXM»NXM*NX,NXtQN) 

20  FORMATS 1H1/7X*10H  F  MATRIX//) 

21  FORMAT! 1H1/7X*10H  G1  MATRIX//) 

22  FORMAT! lHl/7X»10H  G2  MATRIX//) 

23  FORMAT! 1H1/7X*10H  H  MATRIX//) 

24  FORMAT! 1H1/7X*1 OH  D  MATRIX//) 

25  FORMAT! 1H1/7X.10H  A  MATRIX//) 

26  FORMAT! 1H1/7X»10H  E  MATRIX//) 

27  FORMAT !1H1/7X»10H  Q  MATRIX//) 
GOTO! 2000*3000*2050 >*INP 

2000  READ! 5*2001) PC 

2001  FORMAT1G10.4) 

DO  2003  I>1»NX 
DO  2002  J«1 #NX 

2002  PCItJ)»0* 

2003  P!I.I)«PC 
GO  TO  2050 

3000  CALL  INPT!AK»NUM,NXM) 

DO  '.Oil  I«1»NX 
DO  7011  J-1*NX 
EP1 1 #J)»F( I  *  J ) 


5.  Subroutine  CGAINS  Program  Listing  (continued) 
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H 


00  7011  K«1NU 

7011  EPt IiJ>»EP<  I  »Jl+GHl*IO*AK<K»J) 

DO  7012  !*1»NR 

00  7012  J-ltNX 
HOK ( ! tJ) *H( I • J ) 
no  7012  K*1 »NU 

7012  HDK<I»J>«HDK<l,J)+OU.K)*AiaK»J> 
no  701'3  I-1#NR 

no  7on  j«i*nx 
wiu.j>«o. 

00  7013  K*1 *  NR 

7013  Wl<  I#J)-W1(I  »J)+QO(  I 
DO  7014  1-ltNX 

DO  7014  J*1 *NX 
PEP { I t J) *0» 
no  7014  K«1»NR 

7014  PEP  { I  ♦  J)  «PEP  (  I  * J)+HDK  ( 1C  »  I  )*W1  ( K»J ) 
CALL  CAL(EP|PFP*P.KKWA»NX»NXM*IMAX»1) 
DO  876  I"1»NX 

DO  876  J»1«NX 

876  PU»JJ«PEP(1*J> 

GO  TO  2050 

1000  CONTINUE 

DO  2010  1»1*NX 
DO  2010  J»I*NX 
2010  P1(I.J)«P(I.J) 

'‘ALL  CAL(A*QN«P*KKWA»NX>NXM*IMAX»1) 

DO  877  I«1*NX 
DO  877  J»1 #NX 

877  P( I *J)*QN( 1 • J ) 

ITERC-ITERC+1 

2050  CONTINUE 

DO  100  I»1.NX 
DO  100  J»1»NX 
FP( I.Jl-O. 

DO  101  K-l.NX 

101  EPIItJ)«EP(I  tJH-E<I»X.)*P(K»J> 

100  AI I  »J)-ANU  »  J)-EP(I  ,JJ 

DO  102  I "1 *NX 
DO  102  Jml »NX 
0NII»J)-0I I* J) 

DO  103  K«1»NX 

103  QNt  1 1  J)"ON(  I  »JI+PU»XJ*EP(r»J) 

102  QN( J,1)-QN(I .J) 

ICT-0 

DO  105  I-ltNX 
00  105  J* I »NX 
IF(  PI 1 1  * J) ) 1 06*105* 106 

106  RAT»PCI,J>/PI(I»J>-1. 

RAT«ABS<RAT) 

IF(RAT-EE)105tl05»107 

105  ICT-ICT+1 

107  COMTINUF 

IF{ ITFPC ) 108  » 1000*108 


Figure  II- 5.  Subroutine  CGAINS  Program  Listing  (continued) 
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108  IF(NC-ICT) 109.122.109 

109  IF(ITERC~ITER)1000*l00l»100l 
1001  WRITE (9* 120) 1 TERtICT 

120  FORMAT !1H1/7X*18H  NOT  CONVERGED  IN  I3.54H  ITERATIONS-FIRST  TERM  TO 
1FAIL  WAS  14/ > 

ITERM-ITER-1 
WRITE(9tl21) ITER 

121  FORMAT f ///23H  P  MATRIX  AT  ITERATION  13//) 

CALL  MP!NXM#NXM»NX*NX  *P) 

WRITE(9*121) ITERM 

CALL  MP'NXM# NXM»NX»NX*PI ) 

122  CONTINUE 

DO  125  I*1*NU 
DO  125  J«1*NX 
AXU*J)— W(I  tJ) 

DO  125  K«1»NX 

125  AMI»J)«AK(I»J)~W2(ltK)*P(K»J) 

IFCITERC-ITERJAOlO.AOll.AOll 
4011  WRITE(9*4004) 

4004  FORMAT!  1H1/7X*1'3H  GAINS  MATRIX//) 

CALL  MP!NUM*NXM*NU»NX*AK ) 

4010  WRI TE!9»4005 ) 

4005  FORMAT! 1H1/7X »15H  RICCATI  MATRIX//) 

CALL  MP!NXM*NXM*NX*N'<»P) 

WRITE 19*4004) 

CALL  MP!NUM*NXM*NU.NX»AK) 

RETURN 

END 


Figure  n-5.  Subroutine  CGAINS  Program  Listing  (concluded) 
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Figure  II- 6.  Subroutine  CAL  Flow  Diagram 
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SUBROUTINE  CAL(A*XN*P»KWA*N»NR» IMAX » IT) 
DIMENSION  A(MR*1)*XN(KR*1)»P(NR*1)  , K.WA(NR) 
TR*0. 

DO  300  I*1*N 
TR.TR+A<I.I) 

FN«N 

IF(  TR  ) 301*2*2 
STOP  66 

ALF*A8S(TR|/FN 


EE*. 01 
NC*N»(N4l) 

NC-NC/2 
DO  60  1*1  *N 
DO  63  J»1*N 
GOTO(61*62)*IT 
P(I*J)*A(I*J) 

60T0  63 

P(I.Jl*A(J*I) 

CONTINUE 

P(IfI)«P(I*n-ALF 

CONTINUE 


CALL  TDI NVR ( I SOL • I DSOL  *N  »N » P  »NR  *  K  WA * DET ) 
DO  4  I»1»N 
DO  4  J*1*N 
A(I»J)*0. 

DO  4  K*1 »N 

A(I»J)*A(I»J)+P(K*I )*XNt X* J) *2«*ALF 


DO  3  1*1  *N 
DO  5  J*1»N 
XN(I*J)*0. 

DO  3  K«1»N 

XN( I * J)*XN( I»J)+A(I»K)#P(K»J) 
DO  7  1*1 »N 
DO  8  J*1*N 

P(I.J)«P(I*J|*2.#ALF 

P(!*I>*P<I*I>+1. 

ITER«0 
CONTINUE 
DO  9  1*1 *N 

DO  9  J*1 *N 
AtI»J?*0. 

DO  9  K-l.N 

A(I.J)*AtI*JH-P(K»II*XN<IC,J> 

ICOT*0 

DO  10  I*1»N 

00  10  J*I *N 

OXI J*0, 

DO  11  K"1*N 

DX1 J*DXI J+A( I #K)*P(K»J) 
XNn»J»*XN(I»J)-*-DXlJ 
XNC J»l J»XN( I  »  J) 

IFf XN( I*J) ) 2 01 » 14*201 
RAT*ABS(OXIJ/XN< I • J ) J 
IF<RAT-EE>14*14*70 


14  ICOT-ICOT+1 
70  CONTINUE 
10  CONTINUE 
18  ITER-ITER+1 

IFUCOT-NCJlf  *50*15 
If  CONTINUE 
DO  20  1*1  *N 
DO  20  J*1*N 
20  A( l * J)*P( I *J ) 

16  DO  17  1*1 »N 
DO  IT  J*ltN 
P(I*J)«0. 

DO  17  K*l*N 

17  P<I*J>*PCI*J><-A(I.tO*AU»J> 
40  I F I  ITER**IMAX  )  100*50*50 

50  CONTINUE 

WRITE (9*600 1  ITER 
600  FORMAT (/7X*6H  ITER-I** 
RETURN 
END 


s 


Figure  II- 7.  Subroutine  CAL  Program  Listing 
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WRITE  N 

IMAX,  ITER,  NX,  NW,  NM,  EE 

l 

COMPUTE  NC 

1 

SET  ITERC  *  0 

; 

ZERO 

f  uj  r 

“3-1- 

h2pw2 

°3 

W1 

w,  w. 

3  F,  PI,  AH,  OH,  ID,  Q^,<1 

bl,h2 

-1 

READ  FROM  TAPE  A 

F'  Gi,G3,H  2|W 2,W i  J 

COMPUTE 

W21 


COF^TE  1 203.  204 
i-hJW^Hj 


COMPUTE  |205,206 

g3wxg'3 

~~T~ 

f  TEST  INP  } 


STOP  66 
IF  NO  INVERSE 


1000 
I  201ol 


SAVE  PI  •  P 


CALL  CAL  (A,  Q,  P) 


|£.Tq  ^ 


INCREMENT  ITERC  | 

- - J-- --~ 

12050 

CONTINUE 

Z±fzzl 

A  -  (F  -  Pi) 


OMPUTE  1— 

-  PfP  +G^WiG4 

.  i 

SET  ICT  *  0 

f  TEST  IF 

i  [(P/PI*i>  -  t]  <  0  J 
JYES 

Hfl 

415 

INCREMENT  ICT 

4 

l4»> 

i. 

CONTINUE 

TEST  IF  ITERC -0 


TEST  IF  |417A  YES 
NC  -  JCT  -  0  J  I 


TEST  IF  |418\YES 
ITERC  <  ITER 


WRITE  419* 

NOT  CONVERGED  lii— 

Figure  II- 8.  Subroutine  EGAINS  Flow  Diagram  in  iter  -  iteration, — 


CONTINUE 


Figure  II- 8. 


Subroutine  EGA  INS  Flow  Diagram 
(concluded) 


SUBROUT ! NE  EG A I NS 1  A*  *  1 T APE ♦ I M AX  *  I  TER » I TERC  » I NP ) 

COMMON  NX  *NU  >  NR  »NW» NK t NXM . NUM ,NRM »  NWM  *NMM  *NN  *  EE 
DIMENSION  FU7»i7).G3<17*3)*8Ltl7*12).H2ll2»17)*W2<12»l2).Wl!3*3) 
DIMENSION  P!17*17)»PI( 17*17) *AH( 17*17) *QH( 17»17) *10(17*17) 
DIMENSION  C(  17*17)*X(17*17)«X1(17*17)»W2 1(12*12)  *H2PW2 1  (17*12) 
DIMENSION  G3W1GS! 17*17) »KWA( 12) *KKWA< 17) *AK( 4*17) »G1( 17*4) 

REAL  ID 

WR I TF(9»A002 I IMAX ♦ I TpR 

4002  FORMAT! 1H1/7X *37H  MAX  NUMBER  OF  INNER-LOOP  ITERATIONS  !3»37H  MAX  N 
1UMBER  OF  OUTER-LOOP  ITERATIONS  13//) 

WRITE <9.4003 ) NX *NW*NM»EE 

4003  FORMAT ( //7X» 18H  ORDER  OF  SYSTEM  -I3/7X.24H  NUMBER  OF  DISTURBANCES- 
1I3/7X»25H  NUMBER  OF  MEASUREMENTS  -I3/7X»18H  CONVERG.  FACTOR  -F10.B 
2//) 

NC-(NX»(NX+1 ))/2 
1099  CONTINUE 
ITERC-0 
DO  100  I-1*NX 
DO  101  J-l *NX 
G3W163(I*J»e0# 

F(I»J)-0. 

PI<I.J)-0. 

AH! I  * J)*0* 

OH! I  * J)-0« 

ID! I *J)>0« 

G<I*J>-0. 

X! 1  * J)-0* 

X1!I*JI»0. 

101  CONTINUE 

DO  102  J-1«NM 
H2PW2I!I»J)«0. 

PLII.JI-O. 

H2  ( J*  I ) -0» 

102  CONTINUE 

DO  103  J*1«NW 
G3< I*J)-0. 

103  CONTINUE 
100  CONTINUE 

DO  104  I -1*NW 
DO  104  J-l.NW 
Will . J)-0* 

104  CONTINUE 

DO  105  I»1»NM 
DO  103  J-loNM 
W25 I *J)-0* 

W2I (I *J)-0. 

105  CONTINUE 
REWIND  I TAPE 

READ!  I  TAPE  )(!F!I*J)*J-1*NX)  * lal .NX ) 

READ!  I  TAPE)  <  ( GUI  »  J  i  .J-l.NU) *I-1»NX) 

READIITAPE) !  IGUI.J)  .J-l.NW) »I«1»NX) 

READ! I  TAPE) I !H2( I » J) »J-1 »NX)»I«1»NM) 

READ! ITAPE) ! I W2! I  * J) *J-1 *NM) »I-1»NM) 

READ! I  TAPE ) < ! W1 ( I » J) • J-l »NW ) » I -1»NW) 


Figure  IT- 9.  Subroutine  EGA  INS  Program  Listing 
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n  o 


C0MPU7F  W2  !NVERSF»G3W1G3.M2PW2I.IOOT 

00  200  I *1 »NM 
00  200  J»1*NM 

200  W2[(!»J)>M2(I»J) 

CALL  TD!NVR<  ISOL* IDS0L*NM*NM*W2I  *NMM*ilWA»OET ) 
IF( ( IS0L+10S0L) -2) 202* 202*201 

201  STOP  66 

202  CONTINUE 

00  203  I •1»NX 
00  203  J«1»NM 
H2PW2I (I *J)*0» 

00  203  K»1*NM 

203  H2PW2IU  #J)»H2PW2H  I»JM-H2(K*I  )*W?I(K*J> 

00  204  I«!*NX 

00  204  J»1*NX 
IDd*-'-©. 

00  204  K»1#NM 

204  IDCI»J)-I0(I *J)+H2PW?I( I,K)*H2(X*J) 

00  205  I*1»NX 

DO  205  J«1»NW 
XU*J)«0. 

00  205  K«1#NW 

205  XdtJ)"XdtJ)+G3dtK)«WlCKtJ) 

00  206  I "1 »NX 

00  206  J-1«NX 
G3W1G3I I *J) "0< 

00  206  K-1*NW 

206  G3W1G3I I *J)*G3W1G3( I #J)+X< I ,K>*63( J*K> 

GOTO ( 2000*2050) »INP 

2000  CONTINUE 

DO  410  I»1*NX 
DO  410  J«1.NX 

410  Pd*J)-0. 

CALL  INPTIP*NXM»NXM> 

GOTO  2050 

1000  00  2010  I-1»NX 
00  2010  J»l tNX 
2010  PI(!,J)«P()iJ) 

CALL  CAL(AH»QH»P*KXWA*NX»NXM»IMAX,2) 

00  877  I-ltNX 
DO  877  J»1,NX 
877  PUtJJ-QHUf J) 

ITERC-ITERC+1 
2C50  CONTINUE 

DO  411  I-l.NX 
DO  411  J»1*NX 
X(I,J)«0. 
no  411  K»1*NX 

411  Xd#J)-Xd*J)+Pd*K)*ID(K#J> 

00  412  1*1 *NX 

DO  412  J-I*NX 

412  AH<I*J>»F(I*J)-X(I,J) 


Figure  II- 9.  Subroutine  EGAINS  Program  Listing  (continued) 
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00  413  I«1*NX 
DO  413  J-T*NX 
QHIJ,J1-G3W1G3H*J) 

DO  414  <«1.NX 

414  0H( r»J)«QH< I »J)+X(I»XJ*P(K»J) 

413  QH(J,I)-QHII»J) 

ICT-0 

DO  415  I-1*NX 
00  415  J-I«NX 

IFCP1  (I»J).EG.O»)  GOTO  415 
RA7«P(I»J)/PHI*J)-1. 

RAT-ABS(RAT) 

IF( RAT— PE) 415  »4 15 • 4 It 

415  ICT-ICT+1 

416  CONTINUE 

IF ( ITERC  >417  » 1000*417 

417  » F ( NC—ICT ) 41 8 *422*418 

415  IFUTFRC-ITFR)1000«419*419 
419  WRITF(9#430) ITfR 

430  FORMAT (1H1/7X*1SH  NOT  CONVERGED  IN  I3»llH  ITERATIONS/) 
422  CONTINUE 

WR1TE(9»431) 

431  FORMAT ( 1H1/7X »24H  ERROR  COVARIANCE  MATRIX/) 

CALL  MP  <  NXM*  NXM  tNX  *  NX  t  P ) 

DO  435  I *1»NX 
DO  435  J*1»NM 
BL( I  * J)»0» 

DO  435  K*1 *NX 

435  BL(  1  iJ)«BL(  I  »J)+PI  I  *K)*H2PW2l  (K»J) 

WRITF (9*436) 

436  FORMAT 1 1H1/7X  *16H  ESTIMATOR  GAINS/) 

CALL  MP(NXM,NMM»NX»NM*BL) 

DO  450  I«1»NX 
DO  450  J*»1»NX 
AH(I»J)*F<I.J) 

00  450  K«1 »NU 

450  AHI I.J)-AH(I *J)4G1(1»X)«AK(K»J) 

DO  451  I-l.NX 

DO  451  J-l.NX 
XlIiJK. 

DO  451  K-l.NX 

451  X(I  tJ)«XtI»J)+PU*K)*ID<K*J) 

DO  45?  I“1»NX 

DO  452  J«1»NX 
0H( I  * J)*0# 

DO  452  K-l.NX 

452  QH( I  * J ) *QH( I  * J)+X< 1 »K)*P(Kt J) 

CALL  CAL(AH»QH»X»KKWA»NX»NXM*IMAX»2) 

WRITE (9*453) 

453  FORMAT ( 1H1/7X »12H  XHAl  MATRIX/) 

CALL  MP( NXM*NXM»NX»NX»QH) 

DO  454  I *1 »NX 
no  454  J«1»NX 

454  XU,J)»QH(ItJ)4PU*J) 

WRITE  (’>•455) 

455  FORMAT! 1H1/7X»34H  COVARIANCE (WITH  ESTIMATOR)  MATRIX/) 
CALL  MP(NXM.NXM»NX.NX»X) 

RETURN 

FND 


Figure  11-9.  Subroutine  EGAINS  Program  Listing  (concluded) 
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DATA  MANIPUIA.TICN  SUBROUTINES 
Subroutine  SDATA 

Subroutine  SDATA  is  called  by  the  main  program  when  the  linear  data  is 
input  through  cards.  It  reads  the  linear  shuffled  data  by  calling  iNPT  sub¬ 
routine  for  FF,  GG1,  GG2,  and  H2  matrices.  The  data  is  stored  in  the  perma 
nent  disc  file  ITAPPF  for  subsequent  use  by  DATAGEN.  The  subroutine  flow 
diagram  is  shown  in  Figure  II- 10  and  its  program  listing  in  Figure  II- 11. 


Subroutine  DATAGEN 

Subroutine  DATAGEN  generates  linear  data  for  the  controller  and 'estima¬ 
tor  computations. 

First,  the  linear  data  corresponding  to  the  selected  frozen-time  point  are 
read  in  from  the  permanent  disc  file.  If  IREADC  =  0  the  matrices  D,  H,  Q 
are  read  in  by  calling  subroutine  INPT.  Also  if  IREADE  =  0  the  matrices  Wl, 
W2,  and  HH2  are  similarly  read  in. 

The  linear  data  for  controller  computations  are  FF,  GG1,  H,  D,  and  Q,  „ 
They  are  written  on  controller  data  scratch  tape  ITAPC.  The  linear  data  for 
estimator  computations  are  FF,  GG1.  GG3,  HH2,  and  W2,  and  Wl.  They 
are  written  on  estimator  data  scratch  tape  ITAPE. 

The  flow  chart  of  subroutine  DATAGEN  is  shown  in  Figure  11-12  and  the 
program  listing  in  Figure  11-13. 
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I  ENTER  ] 


REWIWmAPPF^ 


CLEAR  HH3 

cc1(Gg2(  cg3ff,h2;jw 


I 


INPUT 

FF#  06^  60^  H2 


I 


DTE  ITAPPF 

,CGltGG2  GG3tH2,WV  J 


WRITE 
FF, 


I 


RETURN 


Figure  11-10.  Subroutine  SDATA  Flow  Diagram 


SUBROUT  I  fit:  SDATA!  ITAPPF  *NDPTS) 

COMMON  N  X  .  NU  »  NR  •  NW  , ;  !’■'  *  N  XM  •  NUM  *  NRM  »  NWM  *  Ni'.M  »  N  N  »  E  E 

DIMENSION  FF! 20,20) »GG1 ( 20*8 ) »GG2 ( 20 *6 ) »GG3 ( 20 *4 ) »H2 ( 21 • 1? ) »VW< ? ) 
REWIND  ITAPPF 

1  FF ( I » J ) *0* 

DO  1  1*1*20 
DO  2  J*l*8 

2  GG1(I*J)«0. 

DO  3  J=1 *6 

3  GG2 ( I » J) =0* 

DO  4  J*l»4 

4  GG3!I»J)=0. 

DO  1  J=1 *20 
DO  5  1*1*21 
DO  5  J*1 *  12 

i  H2( I*J)=0. 

DO  6  1*1*3 
6  V’.'I  I)=0. 

CALL  INPTIFF.20’20’ 

CALL  IVPTI6G1, 20*2) 

CALL  INPT (  GG3  *  20»A) 

CALL  INPTCH2*  21,1?) 

WRITE! ITAPPF)FF 
WR I TF ( ITAPPF ) 001 
WRITE! ITAPPFJGG2 
WR I TE ! I T APPF ) 663 
WRITE! ITAPPF )H2 
WR I TF  < I TAPPF ) VW 
RETURN 
FMD 


Figure  II- 11.  Subroutine  SDATA  Program  Listing 
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TEST  IF  ITAPE -0 


REWIND  ITAPE 


TEST  IF  IREADE  ■  0 


READ  CARDS 
W,  W,  HH, 


CONTINUE 


WRITE  ON  ITAPE 

FF,  GG1;  GG3j  HH2  W2  Wj 


IPHJI 


vniirr 


I 


10 


SU0R0UT I NE  DATAGEN I I TAPC ♦ I TAPE » IT APPF .NDPTS* I RE ADC » I READE > 

COMMON  nx.nu.nr.nw.nm.nxm.num, nrm.num.nmm.nn.ee 

DIMENSION  FF  120*20)  *GG 1(20.8). GG2(20»6)»GG3(20»4)»H2(21»12)»VW (3) 
DIMENSION  H{  21.17  J.DI21. 4  >  »Q(  21.21  )»vil  13.  J) .W2C12.12) 

OIMFNSION  HH 2(12.17) 

RFW1ND  ITAPPF 
00  10  L-l .NDPTS 
READ! ITAPPF)FF 
RE,1D(ITAPPF)GG1 
READ! I TAPPF)GG2 
READ! ITAPPF )GG3 
REA0(ITAPPF)H2 
READ I ITAPPF )VW 
CONTINUE 


HERE  WE  CAN  SHUFFLE  DATA 

IFIITAPC.EQ.O)  GOTO  50 
REWIND  I TAPC 
IF! IREADC.EQ.O)  GOTO  60 
00  11  I«1.NRM 
DO  12  .J-l.NUM 

12  D( I *J)«0. 

DC  13  J*1 .NXM 

13  HI  I  » J)»0. 


DO  11  J-l.NRM 
11  O(I.J)«0. 

CALL  INPT (H.NRM.NXM ) 

CALL  INPTID.NRM.NUM) 

CALL  INPTIO.NRM.NRM) 

DO  30  I-l.NR 
DO  30  J-I.NR 
30  O(J.I)-OII.J) 

60  CONTINUE 

WRITEIITAPC) I (FF(l.J).J-l»NX)*l-l.NX) 
WRITFI I TAPC) I (GG1(I.J).J«1.NU).I»1.NX) 
WRITEIITAPC) I (H(I»J)»J«1»NX)»I«1»NR) 
WRITEIITAPC)!  (DU. J).J-I.NU)» I-l.NR) 
WRITEIITAPC) ( (Q(I.J).J-l .NR) .I-l.NR ) 


60  CONTINUE 

IFI ITAPE.EQ.O)  GOTO  100 
RFWIND  ITAPF 
IFIIRFADE.FQ.O)  GOTO  70 
DO  15  I-l.NWH 
DO  15  J-l.NWM 

15  Wl!I,J)-0. 

DO  16  I-l.NMM 
00  16  J-l.NMM 

16  W2< I »J)«0. 

00  17  I-l.NMM 
GO  17  J-l.NXM 

17  HH?(I.J)«0. 

CALL  INPTIW1.NWM.NV/M) 
CALL  I NP T I W?  »  NMM » NM«M ) 


CALL  INPTIHH2.NMM.NXM) 

70  CONTINUE 

WRITE  1 1 TAPE) I  IFF! I. J) .J-i.NX) .1-1. NX) 
WRITEI1TAPE) I (GG1I I .J) » J-l.NU) .1-1 .NX ) 
WRITEIITAPE) (!GG3(I.J).J-l»NW)f I-l.NX) 
WRITEHTAPE)  I  (HK2I I *J)  . J-l.NX )  .  I-l.NM) 
WRITEIITAPE) I (W2(I.J)»J-1»NM),I-1,NM) 
WRITEIITAPE) I (W1(I.J)»J»1.NW).I-1,NW) 
100  CONTINUE 
RFTURN 
FND 


Figure  11-13.  Subroutine  DATAGEN  Program  Listing 
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